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SVI 838 X'press 16: 

én MS-DOS, én MSX-2 features, én 256k RAM, 
én 128k Video-RAM, én 512 kleuren. 


én toch maar 

f1665r 


*excl. btw. 


ecu üciciK vilii ö utL'dveii. ccn aaniai 
geluidseffecten zijn standaard ingebouwd. 

De SVI 838 X’press 16 wordt geleverc 
inclusief: 

Video kabel, Quickshot joystick, 
MS-DOS en Enhanced GW-BASIC 
schijven en handboeken. 

SVI X’press 16. 

I Zo kan het dus ook! 


Compatible 

De SVI X'press 16 is 
volledig MS-DOS compatible 
en bovendien voorzien van 
technologie zoals graphics, kleuren 
en geluid. 

De computer is opgebouwd rond de 
snelle l6-bits 8088 microprocessor. Deze 
processor is gekoppeld aan een geheugen 
van 256k RAM en uitbreidbaar tot 640k 
RAM. Een 5'A” 360k disk drive is 
ingebouwd. 

Het AT-style toetsenbord is volledig PC 
compatible en in hoogte verstelbaar. 

Bijna alle MS-DOS programmatuur, 
zoals Sidekick, Dbase 2 & 3, Flightsimulator 
enz. is direkt bruikbaar op de X press 16. 


Internal Superimposing 

SVI ontwikkelde deze volledig nieuwe 
technologie om het MS-DOS systeem te 
ondersteunen met de geavanceerde MSX-2 
eigenschappen. Hiermee kunnen bv. ge- 
gevens uit een data base of tekstverwerker 
voorzien worden van alle denkbare 


illustraties. Ook 
MSX-2 beelden 
als achtergrond gebruikt 
worden bij een MS-DOS 
programma. 


Graphics, kleur en geluid 

De X’press 16 heeft uitzonderlijk goede 
video prestaties. Dit door de AVD-processor 
met een eigen RAM-geheugen van 128k. 

U kunt dan ook werken met 3 video 
uitgangen: PC standaard (80 kolommen), 
PC flicker-free colour graphics adaptor 
(Ó4Ü X 200) en advanced video output. 

Vooral de mogelijkheden van AVO zijn 
fabelachtig; 256* 212 pixel resolutie met 
256 kleuren gelijktijdig op het scherm of 
512* 212 pixel met lo kleuren (keuze uit 512 
combinaties), 32 meerkleurige spriles, etc. 

De X’press 16 heeft een geavanceerde 
geluidsgencrator met 3 geluidskanalen over 
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VOORWOORD 


Ve hebben ons 1-jarig bestaan alweer achter de rug en nummer 8 
ligt weer op tafel. Erg veel listings dit keer om zo snel 
mogelijk de gehele topografieset compleet te krijgen en omdat 
enkele artikelenreeksen afgelopen zijn. Hier komt in het komende 
nummers weer wat voor in de plaats en we laten een definitieve 
beslissing over wat er zal komen ook afhangen van de ingezonden 
enguete formulieren. We hebben geprobeerd in dit nummer alle 
rubrieken netjes bij elkaar te houden maar toch moet ik deze 
tekst onderbreken voor een paar wijzigingen en aanvullingen op 
eerdere programma 's: 

In het kaartenbak programma uit Gids nummer 7 moet het volgende 
worden veranderd: 

605 FOR 1=1 TO 5:Y$ (I) ="" :NEXT 

1650 0$(J)=LEFT$(X$,7)+RIGHT${" "+STR${N),4) 

1740 N=VAL(RIGHT$ (0$ (J) , 4) ) 

2960 LPRINT USING" ####"; N ; 

IN DE REGELS 2980 T/M 3080 MOET SPC{4) VERVANGEN WORDEN DOOR 
SPC (5) 

In het programma '4 op een rij' uit Gids nummer 6 (pagina 19) 
moet de volgende extra regel worden opgenomen: 

945 IF POINT (X+4,71)<>3 THEN 820 


Zo, dat was dat. De fouten, die gepubliceerd worden, worden op 
de diskettes -direkt na binnenkomst- gecorrigeerd maar op de 
cassettes niet. Dit is helaas onmogelijk en deze fouten zullen 
door de lezers zelf hersteld moeten worden. De meeste fouten 
hebben betrekking op de verwerking van gegevens binnen het 
programma en zullen zelden tot foutmeldingen leiden. Wanneer een 
programma is ingetoetst , en er treden dan meteen foutmeldingen 
op, dan zullen de foutmeldingen vrijwel altijd te wijten zijn 
aan intik fouten . 

EERST GOED CONTROLEREN, DAN PAS OPBELLENI I ! ! 


OPROEP m INZENDERS VAN PROGRAMMA'S 

Van diverse lezers -en van onze kant- komen de volgende 
verzoeken : 

Houd bij machinetaalroutines zoveel mogelijk het HIMEM adres 
aan van de MSX-2 (zie elders dit blad) dan kunnen bezitters van 
deze machine (en dat worden er steeds meer) de programma's ook 
gebruiken . Eventueel kan het HIMEM adres gebruikt worden bij 
opstarten met 1 drive (dan wel even vermelden ) . 

Vermeld bij programma's of ze ook draaien op 16K computers. 

Geef (bijvoorbeeld bij spellen) op of de joystick of het toet- 
senbord moet worden gebruikt . 

Gebruik RENUM voordat je het programma instuurt . 

Wijzelf ontvangen teksten het liefst op diskette of cassette van 
een tekstverwerker. Het scheelt ons een hoop werk als we de 
teksten niet opnieuw hoeven in te toetsen . 

Uiteraard de programma's zelf ook op diskette of cassette 
insturen . 

Ik stort me weer op het volgende nummer en doe dit fluitend, 
want ik heb er hulp bij gekregen. 

Tot de volgende keer. 

Al f red Debels. 
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GOOD OLD TENNIS 


Het spel start op in een automatisch spel 
waarbij de computer de beide plankjes be- 
stuurt. Dit kan worden onderbroken d.m.v. 
de ESCape toets. Dan wordt, met behulp van 
sprites, gevraagd of er een of twee spe- 
lers zijn en of de cursortoetsen gebruikt 
gaan worden. Deze vragen moeten met de 
cursortoetsen en de spatiebalk beantwoord 
worden. 

Daarop start onmiddellijk het spel. Het 
linker plankje wordt door joystick 2 of de 
computer bestuurd, het rechter plankje 
door joystick 1 of de cursortoetsen. Dit 
betekent wel, dat bij gebruik door twee 
spelers, waarvan een er de cursortoetsen 
bedient, de joystick op poort 2 moet zijn 
aangesloten. 

Het spel wordt -afhankelijk van de score- 
een aantal malen versneld en eindigt bij 
100 punten, waarna de computer weer in z'n 
eentje speelt. 

Het programma kan met ESCape worden ge- 
stopt. 

Veel succes! 



Beeldscherm? WIDTH 36 


1000 •’ 

1002 ’% TENNIS / * 

1 004 ■' % Door 5 / % 

1006 Ger Versluis, \ / * 

1007 Wijk en Aalburg ^ 

1008 =•* % 

1010 ’ * <c)1987 MBX Gids Amsterdam % 

1012 ^ %%%%%%%%%%%%%%%%%%%%%%%%%%%%%% 
1014 •' 

1016 ’ 

1022 •’ checksums 
1030 =• 

1034 DATA 4528,2588,4834,5534,5310,3 
891 .... 

1036 DATA 3574,5503,4869,5884,4971,4 
633 • • . . . 

1038 DATA 5726,4489,5996,5507,5620,4 
983 

1040 DATA 5175,5276,4809,4676,4732,2 
571 • . . . . 

1042 DATA ** 

1044 •’ 

1046 ’ 


1052 

1060 

1064 


1066 

,03 

1068 

,G0 

1070 

,FF 

1072 

,24 

1074 

1076 

,00 

1078 

,07 

1080 

1082 

5^E 

1084 
,03 
1086 
1088 
,0B 
1090 
,00 
1092 
,D0 
1094 
,D0 
1096 
,EC 
1098 
1 1 00 
,00 
1102 
,D1 
1104 
,E5 
1106 
,CB 

i 108 
,28 
1110 
1112 
,D2 
1 1 14 
,E6 
1116 
, 12 
1 1 18 
,47 
1120 
,D4 
1 122 
1124 
,00 
1126 
,FA 
1128 
5 FA 
1130 
,CD 
1132 
, 00 
1134 
1 1 36 
, 18 
1138 
,CD 
1140 
, 18 
1142 
, 19 
1144 
,8E 


' machinetaal data 

•y 

DATA 47,50,56,45,52, 53, 4c ,55,49 
DATA 00 ,01,01, 30 , 30 , 30 , 30 , 30 , 30 
DATA 03 , 03 ,03,03, 03 , 03 , 03 , C0 , C0 
DATA C0 , C0 , C0 , C0 , C0 , 3C , 7E , FF , FF 
DATA FF,7E,3C, 18, 18,7E,7E,7E,24 
DATA ++ 

DATA 24, 18,3C,7E, 18, 18,7E,3C, 18 
DATA 3C,3C,3C, 18, 18, 18, 18,40,52 
DAT A 00 , 0F , 5A , 07 , 00 , 0F , 52 , F8 , 0 1 
DATA 5A, F8, 01 , 0F, 5A, 7F, 02, 08,40 
DATA 50 , 03 , 0F , 56 , 50 , 03 , 0F ,56,58 
DATA ++ 

DAT A 0F , 40 , 4E , 50 , 04 , 0B , 56 , 50 , 05 
DAT A 00 , 00 , 00 , 00 , 40 , 00 , 00 j 00 , 00 
DAT A 00 , 00 , 00 , 40 , CD , 60 , D0 , CD , B 1 
DAT A CD , 60 , D3 , AF , 32 , 8E , CF , CD , E0 
DAT A CD , 60 , D3 , 3 A , 8E , CF , FE , 0 1 , 28 
DATA ++ 

DATA 3E,0E,32,06,D4,CD,06,D1 , 18 
DATA 3A , 8E , CF , FE , 0 1 , 28 , DB , CD , 67 
DATA IA, FE, 00, 20, 06, 21, 00, 1B,CD 
DATA D2,CD,5D,D2,3E,07,CD,41,01 
DATA 57, C8, 18, DE, 3A, 8E, CF, FE, 01 
DATA ++ 

DATA B9,CD,67,D1,CD,5D,D2,CD, Al 
DATA 3E,07,CD,41,01,CB,57,C8, 18 
DATA 11,E9,F3,3E,0F, 12, 13,3E,01 
DATA 13, 12, CD, 6F, 00, 01, 01, E0, CD 
DATA 00, 11, 97, CF, 21, 00, 38, CD, 10 
DATA ++ 

DATA 13,21,00, 1B,CD, 10, D4, 21, 00 
DATA 06,08,3E, 10, CD, 4D, 00, 23, 10 
DAT A 06 , 08 , 3E , 0 1 , CD , 4D , 00 ,23,1 0 
DATA 06 , 0E , 3E , FF , CD , 4D , 00 , 23 , AF 
DATA 4D,00,23, 10, FA, 3E, FF, CD, 4D 
DATA ++ 

DATA C9 , 0 1 , 20 , 00 , C5 , 3E ,02,21, 20 
DATA CD, 56, 00, Cl , 21 ,E0, 1A,3E,03 
DATA 56,00,06, 15, 1 1 , 0F, 00, 21 , 41 
DAT A 3E , 00 , CD , 4D , 00 , 1 9 , CD , 4D , 00 
DATA CD, 4D, 00, 23, 23, 10,F1,C9,3A 
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1 14é> 

1148 

,00 

1150 

,06 

1152 

.-41 

1154 

,21 

1156 

5 10 

1158 
1160 
,CD 
1162 
,00 
1164 
, 18 
1166 
, 10 
1168 
,CD 
1170 
1172 

f 66 

ll74 
,E1 
1176 
,FF 
1178 
,CC 
1 180 
-FE 
1182 
1184 
,CD 
1186 
-FE 
1188 
,4D 
1190 
-4A 
1192 
,FD 
1194 
1196 
- 11 
1198 
,07 
1200 
,28 
1202 
,CD 
1204 
,88 
1206 
1208 
-Dl 
1210 
-El 
1212 
- 11 
1214 
,CD 
1216 
,06 
1218 
1220 
,4D 
1222 
,06 
1224 
-IE 
1226 
,3E 
1228 
- 12 
1230 


DATA ++ 

DATA CF, FE, 01, C8, CD, 67, Dl, IA, FE 
DATA 28,08,21,08, 18,CD,E5,D2, 18 
DATA 21,00, 1B,CD,E5,D2,3E,07,CD 
DATA 01 ,C8, 57,20, D8,C9, 11,DD,CF 
DATA 14, 18,E5,CD, 10,D4, 13,D5,21 
DATA ++ 

DATA 1 8 , 3E , 4E , CD , 4D , 00 , 3E ,44,23 
DATA 4D , 00 , 28 , CD , 2 1 , D3 , D 1 , CD , 4 A 
DATA FE , 4E , 20 , 07 , 3E , 00 , 32 , 23 , D0 
DATA 05, 3E, 22, 32, 23, D0, El , E5, CD 
DATA D4, 13,D5,21, 10, 18, CD, 21, D3 
DATA ++ 

DATA 4 A , 00 , FE , 4E , 20 , 07 , 3E , 00 , 32 
DATA D2, 18, 05, 3E, 01, 32, 66, D2, Dl 
DATA CD, 10, D4, 01, 00, FF, 08, 78, FE 
DATA 20,FA,C9, 1 1 ,8F,CF, IA, FE, 01 
DATA 85, Dl, FE, 00, CC, 98, Dl, 13, IA 
DATA ++ 

DATA 0 1 , CC , 82 , D 1 , FE , 00 , CC , 07 , D2 
DATA 04,D4,C9,21, 10,1B,CD,4A,00 
DATA 08,38,09,06,01,30, 10,FD,CD 
DATA 00,C9, AF, 12,C9,21, 10, 1B,CD 
DATA 00, FE, 88, 30, 09, 06, 01, 3C, 10 
DATA ++ 

DATA CD,4D,00,C9,3E,01, 12,C9,21 
DATA 18, CD, 4A, 00, 06, 03, FE, F2, 28 
DATA 3C, 10,F9,CD,4D,00,C9,F5,E5 
DATA CD, 4A, 00, C6, 06, 47, 21, 08, 18 
data 4A, 00, 88, 28, 1D,30, 1F,C6, 14 
DATA +4* 

DATA 28, 16,38, 18, 3E, 01 , D5, 1 1 , 90 
DATA 12, 11,A6,D1, 12, CD, C0, 00, Dl 
DATA AF, 12,F1,C9,3E,02, 1B,EA,D5 
DATA 93,CF,CD,8E,D3,D1,E1,F1,3C 
DATA 4D,00,C9,21, 11, 1B,CD,4A,00 
DATA ++ 

DATA 03, FE, 0C, 28,07,30, 10,F9,CD 
DATA 00, C9, F5, E5, 28, CD, 4A, 00, C6 
DATA 47,21,00, 18, CD, 4A, 00, 88, 28 
DATA 30,20,C6, 14,88,28, 17,38, 19 
DATA 01, D5, 11,90,01,12, 11,A6,D1 
DATA ++ 


1232 
,C9 
1234 
,8E 
1236 
,21 
1238 
,CD 
1240 
-2C 
1242 
1244 
-FA 
1246 
,4D 
1248 
-3D 
1250 
,08 
1252 
, 18 
1254 
1256 
,00 
1258 
-El 
1260 
,4D 
1262 
-C9 
1264 
,FA 
1266 
1268 
-4D 
1270 
,CD 
1272 
,88 
1274 
-4D 
1276 
,3C 
1278 
1280 
,CD 
1282 
,3D 
1284 
-78 
1286 
-El 
1288 
,08 
1290 
1292 
,CD 
1294 
,4D 
1296 
,D2 
1298 
,30 
1 300 
,CD 
1302 
1304 
,11 
1306 
,00 
1308 
,F0 
1310 
,05 
1312 
-IA 
1314 


DATA CD,C0,00,D1,E1,3E,01, 12,F1 
DATA 3E,02, 18,E9,D5, 11,96,CF,CD 
DATA D3,D1,E1,F1,3D,CD,4D,00,C9 
DATA 08, 1B,CD,4A,00,E5,F5,3E,00 
DATA D5, 00, FE, 01, 28, IA, FE, 05, 20 
DATA ++ 

DATA F1,E1,06,03,FE,B0,C8,3C, 10 
DATA CD,4D,00,21 ,0C, 18, C6, 08, CD 
DATA 00 , C9 , F 1 , E 1 , 06 , 03 , FE , 07 , C8 
DATA 10,FA,CD,4D,00,21,0C, 18, C6 
DATA CD,4D,00,C9,F1,E1,C9,21,00 
DATA ++ 

DATA CD,4A,00,E5,F5,3E,02,CD,D5 
DATA FE, 01 ,28, 1 A, FE, 05, 20, 2C, F1 
DATA 06,03,FE,B0,C8,3C, 10, FA, CD 
DATA 00,21,04, 1B,C6,08,CD,4D,00 
DATA F1,E1,06,03,FE,07,C8,3D, 10 
DATA ++ 

DATA CD, 40,00,21 ,04, 18, C6, 08, CD 
DATA 00,C9,F1,E1,C9,E5,21, 10, 18 
DAT A 4 A , 00 , D6 , 04 , 47 , E 1 , CD , 4 A , 00 
DATA C8,30, 15,FE,B0,CB,00,3C,CD 
DATA 00 ,23,23, 23 , 23 , CD , 4 A , 00 , 00 
DATA ++ 

DATA CD,4D,00,C9,FE,08,CB,3D,3D 
DATA 4D, 00, 23, 23, 23, 23, CD, 4A, 00 
DATA 3D , CD , 4D , 00 , C9 , 0 1 , 00 , 80 , 08 
DATA FE , FF , 20 , F A , E5 , AF , CD , D5 , 00 
DATA FE, 01, 28, 0F, FE, 05, 28, 19, 3E 
DATA ++ 

DATA CD, 41, 01, CB, 47, 28, IE, 18, E7 
DATA 4A, 00, FE, 4E, 28, E0, D6, 08, CD 
DATA 00, 18, D9, CD, 4A, 00, FE, 56, 28 
DATA C6,08,CD,4D,00, 18,CB,C9,3E 
DATA 11, 91, CF, 06, 06, 12, 13, 10, FC 
DATA ++ 

DATA 6F,D3,C9,E5,D5,C5,21,02, 18 
DATA 91, CF, 0E, 02, 06, 03, 1A,CD,4D 
DATA 23, 13, 10, F8, 21, IC, 18,0D,20 
DATA C1,D1,E1,C9, 1A,3C,FE,3A,2B 
DATA 12,CD,6F,D3,C9,3E,30, 12, 18 
DATA ++ 
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1316 DATA 3C, FE, 3A, 28, IA, 12, FE, 33,28 
,0C 

1318 DATA FE, 36, 28, 08, FE, 39, 28, 04, CD 
,6F 

1320 DATA D3,C9, 11,06,D4, 1A,3D,00, 12 
, 18 

1322 DATA F3, 3E, 30, 12, IB, 3C, 12, 3E, 0E 
,32 

1324 DATA 06, D4, CD, 6F, D3, 3A, 91 , CF, FE 
,31 

1326 DATA ++ 

1328 DATA 28, 2D, 21 , IC, 18, 06, 08, E5, C5 
,01 

1 330 DATA 03 , 00 , 3E , 20 , CD , 56 , 00 , CD , C0 

,00 

1332 DATA 06, 06, CD, 04, D4, 10, FB, CD, BE 
, D3 

1334 DATA 06, 06, CD, 04 , D4, 10, FB, Cl , El 

,10 

1336 DATA DE, 3E, 01 , 32, BE, CF, C9, 21 , 02 
,18 

1338 DATA ++ 

1340 DATA 18,D1,C5,0E,0E,06,00, 10,FE 
,0D 

1342 DATA 20, F9, Cl , C9, 1 A, FE , 40, C8, CD 
,4D 

1344 DATA 00, 13, 23, 18, F5, #* 

1346 ’ 

1348 ’ 

1354 ’ initiatie 
1364 •' 

1366 KE YOFF ; COLOR 1,8,8: BCREEN0 : W I DTH 
40 

1368 DEFINTA-Z ; DEFSNGB; DEFFNQ ( A$) =VA 
L ( ”S<h"+A$) : DEFUSR0=8<HD000: DEFUSR1=?<H 
3E 

1370 Dl MC (23) 

1372 I=S<HCF84:K=I: J = 1064 

1 374 B$=BTR I NG* ( 20 , " < " ) +STR I NG$ ( 20 , " 

>") 

1376 ’ 


1378 =• 

1384 ’ datacontrole poke 
1394 =■ 

1396 PRINT; PRINT" Data controle oge 
nblik aub":PRINTB^:PRINT 
1 398 RE ADA$ : I F A^< > ” * * " THENA= VAL ( A^ ) ; 
B=B+ A : C ( D ) = A ; D=D+ 1 : GOTO 1 398 
1400 I FBO 1 15679 'THENPR INT" FOUT in 
checksum data’ 5" ; BEEP; GOTO1420ELBEP 
RINT" checkBLim data’s OK" : BEEP: PRIN 
TB$;PRINT 
1402 B=0;D=0 

1404 READA$: IFA$<>"++"THENIFA$<>"*#" 
THENA=FNQ ( A$ ) ; POKE I , A : I = I + 1 : B=B+ A ; GO 
TO1404 

1406 IFB<>C(D> THENPR INT: PRINT" FOUT 
in data regel "; J ! "TOT" ; J+10: GDTD142 
0ELSEBEEP;PRINTj', "tot " ; j + 10; "OKI : 
J= J + 1 2 : B=0 : D=D+ 1 : I F A$< > " * * " THEN 1 404 
1408 PRINT: PRINT; PRINT" Data regels 
correct " : PRINTB$ 

1410 FORX =0TO2000 ; NE X T ; PR I NT : PR I NT 
1412 PRINT" Saven met ;"; PRINT; PRINT" 
bsave"CHR$(34) "cas; tenni s"CHR* (34) " 
, ?<h " ; HEX* ( K ) ; " , 8<h " ; HEX* ( I - 1 ) ; " , ?<hD00 
0 " ; PR I NTB$ : PR I NT ; PR I NT 
1414 PRINT" laden met;":PRINT" bload 
■’;CHR*(34) ; "cas: tenni s" ; CHR$ (34) ; ",r 
"; PR INTB^; PRINT: PRINT 

1418 PRINT; PRINT" Nu starten met : " : P 
RINT" a=usr (0) " : PRINTB* 

1420 A=UBR1 (0) ;KEYDN 


OTHELLO 


Othello is een typisch computerspel dat 
kan worden gespeeld tussen twee personen 
o£ door 1 persoon tegen de computer. Bij 
de introductie van het spel worden de 
spelregels uiteengezet terwijl tevens de 
mogelijkheid wordt geboden om de computer 
een demonstratie te laten geven. 

Daar de computer als tegenspeler kan fun- 
geren wordt een groot deel van het pro- 
gramma in beslag genomen voor de bereke- 
ning van de computerzet. Daarom betref- 
fende dit punt nog wat nadere toelichting. 

Voor de computer is het belangrijk te 
weten: 

Ie Welk vak komt voor een eventuele zet 
in aanmerking. 

2e Welk vak levert het meeste voordeel 
op. 

Voor wat het eerste betreft, alle vakken 
waar een pion kan worden geplaatst worden 
tijdens het spel telkens gemarkeerd en 
aangepast aan de laatste zet. Voor het be- 
palen van de zet moet het programma dan 
alle gemarkeerde vakken doorlopen en voor 
elk vak de 'zetwaarde' berekenen. Doordat 
de zetwaarde door meerdere factoren kan 
worden bepaald (in dit programma 4) is het 
mogelijk om door bepaalde combinaties van 
die factoren de IQ van de computer op ver- 
schillende nivo's in te stellen. Om de re- 
actiesnelheid van de computer wat op te 
voeren zijn de meest tijdrovende bewerkin- 
gen in machinetaal geschreven (hybride 
programma) . Dit had echter weer tot gevolg 
dat de computer- demonstratie onnavolgbaar 
snel werd. In regel 1640 is daarom de de- 
monstratie weer wat afgeremd. Bij het pro- 
gramma geheel in MSX-BASIC duurt de compu- 
terzet gemiddeld 13 seconden, bij het hy- 
bride programma gemiddeld 3 seconden. En 
deze 3 seconden worden dan nog voor een 
groot deel bepaald door die programma- 
delen welke niet in machinetaal zijn ge- 
schreven. 
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ZETWAARDE VOOR DE COMPUTERZET 
(De computer speelt met O) 


A A=Som van het totaal aan- 

O.. tal pionnen van de te- 

....•0,. genspeler welke vanuit X 

. . .•.O. . kunnen worden geslagen, 

. .X##0. . maal 2. In het voorbeeld 

A is dat: 

A=(2+2)x2=8 


B=Som van het aantal pion- 

B nen welke bij de volgen- 

de zetten kunnen worden 

.O.tO,.. geslagen als gevolg van 

.#•000.. de zet in X. In het 
•X*##... voorbeeld B is dat: 

B=2+3=5 (A is hier 2) 


C=Aantal te behalen bonus- 

punten bij een zet aan 
de rand van het speel- 
C.*’***.. veld of in een hoekpunt. 
C=4 bij een zet op *. 

* * C=10 bij een zet in een 

* * hoekpunt, {een zet in 

* * een hoekpunt zal daar- 

* * door dus vrijwel altijd 

voorgaan) . 


D=Strafpunten wanneer een 
D*....*. zet voordeel oplevert 

**....** voor de tegenpartij. In 

voorbeeld D zou de te- 

.X###0*. genspeler na de compu- 

terzet 5 pionnen kunnen 

terugpakken. Het aantal 

**....** strafpunten is dan 1 

.*....*. minder dan het aantal 

pionnen dat de tegen- 
partij zou kunnen slaan na de zet 
in X. In dit geval dus 4 strafpun- 
ten. Ook een zet in een met * ge- 
merkt vak is goed voor 4 strafpun- 
ten. Immers, een zet hier kan het 
de tegenspeler gemakkelijk maken om 
later zijn pion in het hoekpunt te 
plaatsen . 

De totale score hangt af van de 
keuze van de IQ: 

IQ: ZETWAARDE: 

1 A 

2 A-D 

3 A+B 

4 A+B-D 

5 A+C 

6 A+C-D 

7 A+B+C 

8 A+B+C-D 


Speelveldmarkering. 

8888888888 Bij aanvang van het spel wor- 
8642222468 den aan de speelvakken als- 
8440000448 mede aan de buitenrand om het 
8201111028 speelveld bepaalde waarden 
8201001028 toegekend. 

8201M1028 Zodra er een pion is geplaatst 
8201111028 krijgt dat vak de waarde die 
8440000448 bij die pion hoort: 

8642222468 10 voor O (rood) . 

8888888888 20 voor • (blauw) . 


De achten markeren de rand buiten het 
speelveld. 2,4 en 6 geven de vakken aan 
waarvoor bonus- of strafpunten gelden. 
Wanneer een pion geplaatst is, dan worden 
alle naastliggende vrije vakken met 1 
opgehoogd, tenzij dit al was gedaan bij 
een vorige zet. De computer behoeft voor 
het bepalen van zijn zet dan alleen die 
vakken af te tasten welke een oneven 
waarde hebben (1,3,5 of 7). Hij zal 
hieruit dan dat vak uitkiezen wat in 
samenhang met de gekozen IQ de hoogste 
score oplevert. 

De markeringen welke zijn vastgelegd in de 
adressen &HD000 t/m &HD063 worden bij elk 
nieuw spel weer opnieuw ingelezen met 
bovenstaande waarden. 

Stappen in de diverse 
'windrichtingen' 

(delta adres) 


Adres: inh: richting: 

&HD064 -10 (W) 

4HD065 10 (O) 

&HD066 -1 (N) 

&HD067 1 (Z) 

&HD068 -11 (NW) 

&HD069 11 (ZO) 

&HD06A -9 (ZW) 
&HD06B 9 (NO) 


Zetwaarde per zet 
in dezelfde 
'windrichting' 
(uitsluitend 
zetwaarde A) . 
Adres: 

&HD073 

&HD074 

&HD075 

&HD076 

&HD077 

&HD078 

&HD079 

&HD07A 


Overige adressen met hun inhoud: 
&HD06C: Zetnr. (adress&HD000+zetnr. ) 

&HD06D: Score A (+C) 

&HD06E: Score B 

&HD06F: Strafpunten D 

&HD070: Pionwaarde tegenspeler 

&HD071: Pionwaarde computerzet 

&HD072: IQ (1-8) 

&HD07B: Hulpadres bij USR0 

&HD07C: Hulpadres bij USR0 


Beeldscherm: WIDTH 36 


10 ’*JK)K**!|i)|:*)|:*)|[))c)|:*****#******»*»!|c** 
20 =• * OTHELLD 

30 Door: G. W. J . v. d. Pol Nijmegen 
40 =•* (c)1987 MBX Gids Amsterdam 

50 

60 "********** 

70 CLEARjKEY OFF: screen 2 
80 CDLOR 15,4, 12:CLS;DEFINT A-Z 
90 CLEAR 610,?<HCFFF 
1 00 DEFUSR0=8<HD080 ; DEFU8R 1 =S<HD 1 B0 
110 DEFUSR2=S<HD1E2 
120 =■ 


130 ’ ++++++++Introductie++++++++++ 
140 ’ 

150 L INE ( 40 , 8) - ( 2 1 5 , 32 ) , 1 1 , BF 
160 LINE(44' 12)-(2li,28) ,2,BF 
170 OPEN-GRP; "FDR OUTPUT' AS# 1 
180 PSET(56, 16) ,2 
190 PR I NT# 1, "WELKOM BIJ OTHELLO" 

200 LINE ( 10, 40) -(250, 48) ,4, BF 
210 A$=" Wilt U eerst de spelregels 
(A) of zullen we maar direct met 
het spel beginnen (B)? 

220 Y=5:B0BUB 2470 

230 A$=" Tik Uw keuze (A of B) i 


n . 


6 


^ ^ 


240 

250 

260 

270 

2B0 

290 

300 

305 

310 

LS 

320 

330 


Y=9 ! GDSUB 2470 : CLOSE# 1 
FOR I=S<HD080 TO 8<HD25F 
RE AD s A= V AL ( " " +B$ ) 

POKE I,A:NEXT 

I^=INKÈY$s IF I$='*"GOTO 280 
IF I$="A" OR I$="a"THEN B=1 
IF OR I$="b"THEIM B=2 

IF B<1 OR B>2 THEN 280 
SCREEN 0;WIDTH 37:CDLDR 15,4,4:C 


IF B=2 GOTO 510 

LOCATE 3,0;PRINT"OTHELLO wordt g 
espeeld op een veldvan 8 bi j 8 vakkê 
n.Bij de aanvang vanhet spel zijn vo 
or elke speler reeds twee pionnen op 
het middenveld ge- plaatst. 

340 LOCATE 3, 6: PR INT "Het is de bedoe 
ling om Uw pion telkens zodanig te p 
Isatsen dat zich zo— veel mogelijk pi 
onnen van de tegenpartij tussen deze 
nieuwe pion en de al eerder geplaat. 
ste pionnen bevinden. 

•-'50 LOCATE 3, 12s F'RINT"Deze pionnen v 
an de tegenpartij krijgen dan auto 
matisch Uw kleur. Wie uiteindelij 
k de meeste pionnen weet te bemach 
tigen is winnaar. 

360 LOCATE 3,16:PRINT"U bent verplic 
ht om steeds een zette doen, ook al k 
Lint U daarbij niet si aan. De zet ko 
mt dan wel te verval— len, hetgeen ui 
teraard alleen maar voordeel ople 
vert voor de tegenspeler 
370 LOCATE 3, 22: PRINT"Druk nu de spa 
tiebalk in voor de volgende bladzij 
d© ” • 

380 IF BTRIG(0)=0 GOTO 380 
390 IF BTRIG(0) GOTO 390 
400 CLS 

410 LOCATE 3,0:PRINT"Mogeli jk is LI d 
eze uitleg niet voldoende duidelijk. 
Daarom zal U door decomputer eerst e 
en korte demonstrati eworden gegeven. 
420 LOCATE 0,6: PRINT" Al s U het s 
pel dan door hebt.drukdan de EBCcap 
e toets in. 

430 LOCATE 3, 20: PRINT"Druk nu eerst 
de spatiebalk in om de demonstratie 
te laten beginnen. 

440 IF STRIG(0)=0 GOTO 440 
450 IF BTRIG(0) GOTO 450 
460 CC=3: I 0=8: GOTO 720 
470 •' 

480 CLS;SCREEN0: WIDTH 37:C0L0R 15,4, 

490 IF CC<3 THEN 510 
500 LOCATE 3,0: PR INT "Zoal 
dt er met rode en blauwe 
Speel d • 

510 CC=3: LOCATE 2, 2: PRINT"Rood wordt 
gespeeld met joystick 1 en is al tij 
d als eerste aan zet. 

520 LOCATE 0, 4: PRINT"B1 auw wordt ges 
peeld met joystick 2." 

530 LOCATE 3, 6; PRINT"liet de joystick 
kan de zoeker (•+) naar het gewenste 
vak worden gediri- geerd.Als U daar 
na op de rode knop drukt wordt de 
pion geplaatst. 

540 LOCATE 3, 1 1 : F'RINT"Er is ook nog 
de mogelijkheid om dit spel met z’n 
tweeën te spelen (D)oF alleen tegen 
de computer (E) . De comp. speelt 

dan met blauw. 


U zag wor 
pionnen ge 


570 

CC=1 

CC=2:G0T0 


OO0 LOCATE 1 , 16: F'RINT" In het laatste 
geval bestaat ook nogde mogelijkhei 
d om de zoeker te besturen met de cu 
rsortoetsen alsmede de spatiebalk o 
p het toetsenbord (T). 

560 LOCATE 1 , 21 : PRINT"Ti k dan nu Uw 
keuze (D,E of T) in. 

570 I$=INKEY$:IF IS=""G0T0 
580 IF I$="E"0R I*=»e"THEN 
590 IF IS="D"0R I$="d"THEN 
720 

600 IF It="T"0R I$="t"THEN CC=0 
610 IF CC>2 GOTO 570 
620 CLB: L0CATE6, 1 : PRlNT"Wanneer de c 
omputer de tegenzetheef t berekend 
dan wordt alleen dezet uitqevoerd. 
630 PRINT" U kunt dan eerst rust 

ig bekijkenwat de consequenties van 
die tegen-zet zijn. 

640 PRINT" De pionnen worden pa 

s gewissel dnadat U de spatiebalk 
(of de rodeknop) hebt ingedrukt. 

650 L0CATE3, 14:PRINT”Als laatste bes 
taat er nu nog de mogelijkheid om d 
e IQ van de computerin te stellen op 
èèn van de nivo’s:" 

660 LOCATE10, 19: PRINT" 1-2-3-4-5-6-7- 
0 

670 LOCATE 3, 22: PRINT"Ti k dan nu het 
gewenste nivo in. 

680 I$=INKEY^:IF I$=""G0T0 680 
IQ=VAL (1$) 

IF IQ<1 OR IQ >8 GOTO 680 


690 
700 
710 
720 
730 
740 
750 
760 
770 
780 
790 
800 
810 
820 
830 
840 
850 
860 
870 
6 ) ,8 


’ +++++Frameconstruct i 

0PEN"GRP: "FOR OUTPUT AB#1 
SCREEN 2,0:COLOR 1,3, 4: CLS 
RESTORE 3270 ' ' 

FOR 1=1 TO 3:A$="" 

FOR 3=1 TO 8 

READ A; A$=At+CHR^(A) :NEXT J 
BPRITE$(I)=A*:NEXT I 
LINE (22,39)-(38, 184) ,8.B 
LINE (70,39)-(86, 184) ,5,B 
FOR 1=60 TO 188 STEP ïé>' 

LINE (112, I)-(240, I) :NEXT 
FOR 1=112 TO 240 STEP 16 
LINE ( I , 60) - ( I , 188) : NEXT 
CIRCLE(16B, 116) , 5, 8: PAINT ( 168, 11 


880 CIRCLE(168, 132) , 5, 8: PAINT ( 1 68, 13 
>) 0 ^ 

2J®^<^If^CLE( 184, 116) ,5, 5: PAINT (184, 11 

900 CIRCLE(184, 132) , 5, 5: PAINT ( 184, 13 
2) , 5 

910 CIRCLE(168,52) ,5, 1 : PAINT ( 1 68, 52) 
920 PRESET (39, 8) 

930 PR I NT# 1, "SCORE OTHEL L 0 

940 IF CC=2 THEN 960 
950 PRESET (210,8) :PRINT#1, "IQ="IQ 
960 PRESET (112, 48) 

970 PRI NT# 1 , "SPELER AAN ZET" 

980 PRESET (31,48) : PR I NT# 1 , " - 


990 PRESET (3 1,58) 
1000 PRESET (3 1,68) 

H 

1010 PRESET (3 1,78) 

II 

1020 PRESET (3 1,88) 


:PRINT#1, " — 60- 
:PRINT#1, " — 
:PRINT#1, " — 50 
:PRINT#1, " — 


1030 PRESET (3 1,98) :PRINT#1," 40 
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1040 PRESET (31, 108) :PRINT#1, " — 

II 

1050 PRESET (31, 118) ;PRINT#1, '* — 30 

I» 

1 060 PRESET ( 3 1 , 1 28 ) : PR I NT# 1 , " 

II 

1070 PRESET (31, 138) ;PRINT#1, " — ^20 

II 

1080 PRESET (31, 148) ;PRINT#1, " — 

II 

1090 PRESET (31, 158) ;PRINT#1, — 10 

IJ 

1100 PRESET (31, 168) :PRINT#1, ■’ — 

II 

1110 PRESET (31, 178) ;PRINT#1, " — 00 

II 

1120 =• 

1 1 30 ’ +++++++spel cyc 1 U 5 ++++++++ 

1140 =• 

1150 RESTORE 3320 

1160 FDR I=8<HD000 TO e<HD07F 

1170 RE AD B$: A=VAL("8<H"+B*) 

1180 POKE I,AsNEXT 

1 1 90 E=0 : D=0 ! POKE ?<HD072 , I D 

1200 X=164: Y=48;CZ=0;BEEP 

1210 IF E MDD2=0 THEN C=8: S=10! Z=20 

1220 IF E M0D2=1 THEN C=5: S=20s Z=10 

1230 POKE ?(HD070, ZiPOKE &HD071,S 

1240 CIRCLE(X+4, Y+4) , 5, 1 : PAINT ( X+4, Y 

+4),1 

1250 PUT SPRITE 2, (X,Y),C,2 
1260 PUT SPRITE 3, (X;Y),15,3 
1270 IF CC=3 GOTO' 1470 
1280 IF S=20 AND CC<2 GOTO 1470 
1290 IFS=10 ANDCCO0THEN D=1 ELSE Q= 
0 

1300 IF S=20 THEN Q=2 
1310 0=STICK(Q) 

1320 FOR 1=1 TO 150SNEXT 

1330 IF 0=8 OR 0=1 OR 0=2 THENY=Y-16 

1340 IF 0=4 OR 0=5 OR 0=6 THENY=Y+16 

1350 IF 0=2 OR 0=3 OR 0=4 THENX=X+16 

1360 IF 0=6 OR 0=7 OR 0=8 THENX=X-16 

1370 IF X>228 THEN X=228 

1380 IF X<116 THEN X=116 

1390 IF Y>176 THEN Y=176 

1400 IF Y<64 AND O>0 THEN Y=64 

1410 PUT SPRITE 2, (X,Y),C,2 

1420 PUT SPRITE 3i(XiY),15,3 

1430 IF BTRIG(Q)=0 OR Y=48' GOTOl 31 0 

1440 A=(X-100) /I ,6+(Y-48) /16 

1450 POKE ?<HD06C,A 

1460 GOTO 1510 

1470 CZ=1 

1480 R=UBR2(0) 

1 490 A=PEEK ( ?<HD06C ) 

1500 BEEPiBEEP 
1510 AP=?<HD000+A 
1520 AA=PEEK(AP) 

1530 IF AA >7 THEN 1310 
1540 X=(A\ 10)» 16+100 
1550 Y=(AMOD10) » 16+48 
1560 PUT SPRITE 2,(X,Y),C,2 
1570 PUT BPRITE 3;(X,Y),15,3 
1580 POKE AP,S;E=È+r 
1590 CIRCLE(X+4, Y+4) ,5,C 
1600 PAINT(X+4, Y+4) ,C 
1610 PUT SPRITÈ 1, (X, Y) , 15, 1 
1620 IF CZ=0 THEN' 1670 
1630 IF CC<3 THEN 1660 
1640 FOR 1=0 TO 1000:NEXT 
1650 GOTO 1670 

1660 IF STRIG(Q)=0 GOTO 1660 
1670 R=USR0(0) 

1680 " 

1690 ■' ++++++Ï 1 1 egal e zet ++++++ 

1700 •’ 

1710 T=PEEK ( ?<HD06D ) 


1720 IF T>0 THEN D=0:GOTO 1780 
1 730 POKE ( 8<HD000+ A ) , A A s D=D+ 1 
1740 CIRCLE(X+4, Y+4) , 5, 3s PAINT (X+4, Y 
+4), 3 

1 750 BEEP ; BEEP : BEEP ; BEEP ï BEEP 
1760 IF D=2 GOTO 2260 ELBE 2120 
1770 ’ 

1780 ’ ++++++omwi ssel en pionnen++++ 
1790 •' 


1800 FDR J=0 TO 7:K=PEEK(8<HD064+J) 
1810 IF K>100 THEN K=K-256 
1820 AC=?<HD000+A+K 


1830 IF PEEK(AC)>7 THEN 1850 

1840 IF PEEK(AC)MOD2=0 THEN POKE AC, 

PEEK(AC)+1 

1850 NEXT J 


1860 
1870 
1880 
1890 
ELSE 
1900 
1910 
1920 
1930 
1940 
1950 
1960 
1970 
1980 
1990 
2000 
2010 
2020 
2030 
2040 
2050 
2060 
+48 
2070 
+4) ,C 
2080 
2090 
2100 
2110 


FOR H=0 TO 7; V=PEEK(8<HD064+H) 

IF V>100 THEN V=V-256 

IF PEEK(8<HD073+H)=0 THEN 1900 

1930 

NEXT H 

GOTO 2120 


M=V;GOSUB 2050 
IF PEEK(8<HD073+H) = 1 
M=2*V:G0SUB 2050 
IF PEEK(8<HD073+H)=2 
M=3»VsG0SUB 2050 
I F PEEK ( 8<HD073+H ) =3 
M=4*V;G0SUB 2050 
I F PEEK ( 8<HD073+H ) =4 
M=5*V;G0SUB 2050 
I F PEEK ( ?<HD073+H ) =5 
M=6»VsG0SUB 2050 
GOTO 1900 

POKE (?<HD000+A+ri) , S: 1 
X= (N\ 10) » 16+100: Y=(N 


THEN 

1900 

THEN 

1900 

THEN 

1900 

THEN 

1900 

THEN 

1900 

l=A+M 

1 MOD 

10) »16 

PAINT (X+4, Y 


PL A Y " S 1 0 V 1 0O7C32 
FOR a=0 TO 200; NEXT 
RETURN 


2120 ’ +++++++puntentel 1 i ng+++++++++ 
2130 ’ 

2140 R=USR1(0) 


2 1 50 P 1 =PEEK ( 8<HD07D ) ; P2=PEEK ( 8<HD07E ) 
2160 LINE(29,40)-(33, 180) ,3,BF 
2170 LINE(77,40)-(81, 180) ,3,BF 
2180 LI NE (29, 181-2»P1 ) - (33, 181) ,8, BF 
2190 L INE (77, 181-2*P2) - (81 ; 181) ;5,BF 
2200 IF P1=0'OR P2=0 GOTO 2260 
2210 IF Pl+P2=64 GOTO 2260 
2220 IF INKEY$=CHR$(27) AND CC=3 THE 
N 2240 

2230 GOTO 1200 

2240 GLOBE# 1:BCREEN0:CLB: GOTO 480 
2250 =■ 

2260 BEEP! BEEP: BEEF'! BEEF'! BEEP 
2270 IF P1>P2 GOTO 2320 
2280 IF P2>P1 GOTO 2350 
2290 PREBET(31,24) 

2300 PR I NT# 1 REM I SE •' 

2310 GOTO 2400 
2320 PRESET (3 1,24) 

2330 PRINT#1," HEEFT MET‘*P1 "-"P2"GEW 
ONNEN" 


2340 GOTO 2390 


2350 PRESET (3 1,24) 

2360 PR I NT# 1 ,"' HEEFT MET " P2 " - " P 1 " GEW 
ONNEN" 

2370 CIRCLE(27,2B) , 4, 5; PAINT (27, 28) , 
5 ... . . 

2380 GOTO 2400 

2390 CIRCLE(27,28) ,4,B:PAINT(27,28) , 
8 


2400 
2410 
2420 
2430 
2440 
2450 
2460 
2470 
2480 
2490 
2500 
2510 
2520 
2530 
2540 
2550 
2560 
2570 
2580 
2590 
2600 
2610 
2620 
2630 
2640 
2650 
2660 
2670 
2680 
2690 
2700 
2710 
2720 
2730 
2740 
2750 
2760 
2770 
2780 
2790 
2800 
2810 
2820 
2830 
2840 
2850 
2860 
2870 
2880 
2890 
2900 
2910 
2920 
2930 
2940 
2950 
2960 
2970 
2980 
2990 
3000 
3010 
3020 
3030 
3040 
3050 
3060 
3070 
3080 
3090 
3100 
3110 
3120 
3130 
3140 
3150 
3160 


IF STRIG(0)=0 GOTO 2400 
CLOSE# 1 ; SCREEN0: CLS 
IF STRIG(0) GOTO 2420 
GOTO 480 

[++ subr. tekst SCREEN 2 ++++ 
X=0 

FOR 1=1 TO LEN<A$> 

PSET <X+6Jn + 15,8*Y) ,4 
PRINT#1,MID$(A$, I, i) 
^FxIMOD37=0 THEN X=X-222: Y=Y+1 

RETURN 

' ++ USR0 Score berekening ++ 


DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 


DD, 

3E, 

32, 

40, 

77, 

5E, 

D0, 

08, 

IA, 

00 , 

FE, 

66 , 

79, 

Dl, 

FE, 

00 , 

08, 

C3, 

BD, 

C3, 

6F, 

CA, 

fa; 

C3, 
^ A , 

fa; 

D0, 
32, 
7C, 
71, 
D0, 
Dl , 
Dl , 

-I’ 

Di; 

D0, 

6D, 


21 , 
00 , 
6F, 
C2, 
00 , 
00 , 
IA, 
FA, 
BD, 
83, 
08, 
Dl, 
32, 
3A, 
D0, 
83, 
F2, 
ID, 
C2, 
ID, 
7C, 
51, 
3B, 
40, 
6F, 
51, 
FD, 
6D, 
D0; 
Dl, 
%1 hA 5 
3A, 
3A, 
93, 
6D, 
3A, 
IA, 


D0, 


64, 
32, 
D0, 
9F, 
32, 
3A , 

FE, 

FE, 

C2, 

5F, 

C2, 

IA, 

7C, 

71, 
FD, 
5F, 
0B, 
Dl, 
38, 
Dl, 
85, 

Dl, 

Dl, 

Dl, 

D0, 

Dl, 

6E, 

D0, 

85; 

dd; 

6D, 

72, 
6C, 
Dl, 
D0, 
6F, 
D6, 
C6, 


D0,FD, 
6D,D0; 
06,08, 
D0,32, 
7C,D0, 
6C,D0; 
08; CA, 
D0,3A, 
CE,D0; 

c3;bc; 

DA,D0, 

D6;08, 

D0;26; 

D0, 6F; 

71,00, 

C3,E9, 

D1,7C, 

3A, 70, 

D1,7C, 

26, 3C, 

32, 7B, 

3A,7B, 

D6, 14, 

3E,00, 

6F,3A, 

3A,7B, 

00, 3A, 

3A,6E, 

32; 6E, 

23; FD, 

D0,87, 

D0,D6, 

D0,5F, 

^i,A , 6D , 

1A,D6, 

D0,C6; 

07, C2, 

0A,32, 


21,73,D0 

32;6E,D0 

3E,00,CB 

7B,D0;fD 

4F,67;dD 

83, 5F, 16 

1B,D1,D6 

70,D0;6F 

0C,DD,7E 

D0,61 , IA 

26,3C,C3 

F2;E9,D0 

1E,C3; ID 

1A,BD,C2 

24,DD,7E 

D0, 1A,D6 

D6, IE, 67 

D0,6F; IA 

C6, IE, 67 

3A,7B,D0 

D0,CB;40 

D0,C6,00 

F2,3B;D1 

32,7B,D0 

7B,D0,95 

D0,32,6F 

6D,D0,85 

D0,6F,3A 

D0,05,CA 

23;C3,95 

00, CA, AF 

05, FA, AF 

1A,D6,03 

D0,C6,04 

05;C2, Al 

04,32,6F 

AF,Di;3A 

6D,D0;C9 


’++ UBRl Puntentelling +++ 

DATA 3E,00,67,6F,32,7D,D0,32 
DATA 7E,D0, 16,D0,06,0B,5B; IA 
DATA FE,0A,C2,C9,D1;24;C3,CF 
DATA D1,FE, 14,C2,CF,D1,2C;04 
DATA 78, FE, 59, CA, D9, Dl, C3, BE 
DATA D1,7C,32,7D,D0,7D,32,7E 
DATA D0,C9 ■ . - . 

' ++ UBR2 comp. 2et+++4+++ 


DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 


16, 

32, 

D2, 

3A, 

D2, 

07, 

D2, 

D0, 

D0, 


D0, 

6C, 

00 ; 

6D, 

4F, 

C2, 

3A, 

CB, 

ED, 


26, 

D0, 

D9, 

D0, 

3A, 

18, 

É>E, 

47, 

44, 


00,06, 
IA, CB, 
CD, 80, 
00, FE, 
72, D0, 
D2,3E, 
D0,8i; 
C2,27; 
81, 4F, 


0B, 

47, 

D0, 

00 , 

E6, 

00 , 

4f; 

D2, 

79, 


58,78 
CA, 37 
00, D9 
CA, 37 
03, 3E 
C2, 18 
3A,72 
3A,6F 
D6,01 


3170 

3180 

3190 

3200 

3210 

3220 

3230 

3240 

3250 

3260 

3270 

3280 

3290 

0 

3300 

3310 

3320 

3330 

3340 

3350 

3360 

3370 


data F2,2F,D2, 
DATA 37,D2,7B, 
DATA* 59, ca; 41, 
DATA FE,00,C2, 
DATA 1A,CB,47; 
DATA 6C,D0;C3, 
DATA D2,7D,32, 


0E,01,7C,91,F2 
6F, 6 1,04, 78, FE 
D2,C3,E8,D1,7C 
5B,D2,06,0B;58 
CA, 57, D2, 78, 32 
5F,D2,04,C3,49 
6C,D0,C9' 


’++++ Sprites +++++++ 


DATA 0,0,0,24, 
DATA 0,24,24,1 
DATA 60,36,231 


24,0,0,0 

26, 126,24,24,0 

, 129, 129,231,36,6 


’ ++++Vari abel en+++++++ 


380 
3390 
3400 
3410 
3420 
3430 
.3440 
3450 
3460 
3470 
3480 
3490 
3500 
3510 
3520 
3530 
3540 
3550 
3560 
3570 


DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 


08,08, 
08; 08, 
08,06, 
02 , 02 ; 

08,04, 

00 , 00 , 

08 , 02 ; 

01 , 01 , 

08 , 02 ; 

k'>A,01, 

08,02, 

14.01, 

08.02, 
01 , 01 ; 
08 , 04 ; 
00 , 00 , 
08,06, 
02 , 02 , 
08; 08; 
08,08, 
F6,0A, 
F5,0B, 
00 , 00 , 
00 , 00 ; 
00 , 00 ; 
00 , 00 ; 


08, 08, 08 
08, 08; 08 
04 , 02 , 02 

04.06.08 
04,00,00 

04.04.08 
00 , 01,01 
00,02,08 
00, 01 , 0A 
00,02,08 
00,01 ; 14 
00, 02, 08 
00 , 01,01 
00,02,08 
04, 00, 00 

04.04.08 
04,02,02 

04.06.08 

08.08.08 
08,08,08 
FF, 01 ■ 

F7 , 09 
00 , 00, 00 
00 , 00,00 
00 , 00,00 
00 , 00,00 


C0NTR0LETELLIN6 
Regel: 

Rege 
Rege 
Rege 
Rege 
Rege 
Rege 
Rege 
Rege 
Rege 
Rege 
Rege 
Rege 
Rege 
Rege: 

Rege 
Rege: 

Regei 
Regei 
Rege] 

Regel 
Regel 
Regel 
Regel 
Regel 
Regel 
Regel 
Regel 
Regel 
Regel 
Regel 
Regel 
Regel 
Regel 
Regel 
Regel 
Regei 
Regel 
Regel 


10 - 

■ 5B 

Rege 

390 

- 13 

Rege 

780 

- 31 

20 - 

• 58 

Rege 

400 

- 159 

Rege 

790 

- 26 

30 - 

• 58 

Rege 

410 

- 39 

Rege 

800 

- 255 

40 - 

• 58 

Rege 

420 

- 147 

Rege 

810 

- 197 

50 - 

58 

Rege 

430 

- 25 

Rege 

820 

- 34 

60 - 

58 

Rege 

440 

- 63 

Rege 

830 

- 68 

70 - 

213 

Rege 

450 

- 73 

Rege 

840 

- 136 

BO - 

239 

Rege 

460 

- 40 

Rege 

850 

- 172 

90 - 

56 

Rege 

470 

- 58 

Rege 

860 ' 

- 32 

100 - 

12 

Rege 

480 

- 151 

Rege 

870 • 

- 239 

110 - 

53 

Rege 

490 

- 92 

Rege 

880 ■ 

- 15 

120 - 

58 

Rege 

500 

- 238 

Rege 

890 ■ 

- 9 

130 - 

58 

Rege 

510 • 

- 14 

Rege 

900 - 

■ 41 

140 - 

58 

Rege 

520 ■ 

- 131 

Rege 

910 ■ 

• 97 

150 - 

250 

Rege 

530 ■ 

- 136 

Rege 

920 - 

• 143 

160 - 

241 

Rege 

540 ■ 

- 165 

Rege 

930 - 

• 135 

170 - 

241 

Rege 

550 ■ 

• 194 

Rege 

940 - 

30 

IBO - 

228 

Rege 

560 ■ 

■ 169 

Rege 

950 - 

27 

190 - 

49 

Rege 

570 ■ 

■ 192 

Rege 

960 - 

254 

200 - 

72 

Regel 

580 - 

• 45 

Rege 

970 - 

68 

210 - 

121 

Rege: 

590 - 

• 239 

Rege 

980 - 

221 

220 - 

2 

Regel 

600 - 

• 74 

Rege 

990 - 

44 

230 - 

156 

Rege] 

610 - 

69 

Regel 

1000 - 

241 

240 - 

41 

Rege] 

620 - 

114 

Regel 

1010 - 

63 

250 - 

140 

Regel 

630 - 

207 

Regel 

1020 - 

5 

260 - 

100 

Regel 

640 - 

226 

Regel 

1030 - 

82 

270 - 

43 

Regel 

650 - 

235 

Regel 

1040 - 

249 

2B0 - 

157 

Regel 

660 - 

11 

Regel 

1050 - 

69 

290 - 

1 

Regel 

670 - 

172 

Regel 

1060 - 

13 

300 - 

4 

Regel 

680 - 

46 

Regel 

1070 - 

88 

305 - 

170 

Regel 

690 - 

218 

Regel 

1080 - 

33 

310 - 

180 

Regel 

700 - 

160 

Regel 

1090 - 

107 

320 - 

197 

Regel 

710 - 

58 

Regel 

1100 - 

53 

330 - 

60 

Regel 

720 - 

58 

Regel 

1110 - 

157 

340 - 

96 

Regel 

730 - 

58 

Regel 

1120 - 

SB 

350 - 

238 

Regel 

740 - 

241 

Regel 

1130 - 

58 

360 - 

152 

Regel 

750 - 

184 

Regel 

1140 - 

58 

370 - 

186 

Regei 

760 - 

140 

Regel 

1150 - 

190 

3B0 - 

3 

Regel 

770 - 

235 

Regel 

160 - 

42 


9 


100 

■ 43 

201 

140 

190 

188 

72 

231 

213 

178 

206 

105 

41 

125 

129 

103 

189 

192 

184 

197 

56 

90 

210 

120 

213 

178 

135 

133 

109 

162 

158 

147 

95 

186 

142 

233 

126 

100 

48 

213 

178 

126 

167 

104 

174 

252 

223 

200 

67 

72 

145 

58 

58 

58 

115 

71 

89 

235 

168 

29 

58 

58 

58 

243 

5 

189 

133 

20 

237 

58 

250 

38 

143 

235 

7 

58 

145 

182 

151 

183 

152 

184 

153 

185 

154 

186 

155 

42 

170 

40 


TOPOGRAFIE (2) 


Regel*. 2070 - 73 
Regel! 2080 - 124 
Regel! 2090 - 153 
Regel: 2100 - 142 
Regel: 2110 - 58 
Regel: 2120 - 58 
Regel! 2130 - 58 
Regel: 2140 - 146 
Regel! 2150 - 156 
Regel: 2160 - 229 
Regel! 2170 - 69 
Regel: 2180 - 241 
Regel: 2190 - 79 
Regel! 2200 - 152 
Regel! 2210 - 144 
Regel: 2220 - 69 
Regel! 2230 - 107 
Regel! 2240 - 164 
Regel: 2250 - 58 
Regel! 2260 - 168 
Regel: 2270 - 140 
Regel: 2280 - 170 
Regel: 2290 - 149 
Regel! 2300 - 251 
Regel: 2310 - 32 
Regel! 2320 - 149 
Regel! 2330 - 225 
Regel: 2340 - 22 
Regel! 2350 - 149 
Regel: 2360 - 225 
Regel! 2370 - 30 
Regel: 2380 - 32 
Regel: 2390 - 36 
Regel: 2400 - 239 
Regel: 2410 - 210 
Regel: 2420 - 3 
Regel: 2430 - 152 
Regel: 2440 - 58 
Regel: 2450 - 58 
Regel: 2460 - 58 
Regel: 2470 - 88 
Regel: 2480 - 76 
Regel: 2490 - 144 
Regel: 2500 - 221 
Regel! 2510 - 153 
Regel! 2520 - 131 
Regel: 2530 - 142 
Regel: 2540 - 58 
Regel: 2550 - 58 
Regel: 2560 - 58 
Regel! 2570 - 108 
Regel: 2580 - 87 
Regel: 2590 - 88 
Regel: 2600 - 128 
Regel: 2610 - 104 
Regel: 2620 - 96 
Regel: 2630 - 151 
Regel! 2640 - 145 
Regel: 2650 - 184 
Regel: 2660 - 102 
Regel: 2670 - 141 
Regel: 2680 - 119 
Regel: 2690 - 100 
Regel! 2700 - 134 
Regel: 2710 - 147 
Regel! 2720 - 114 
Regel: 2730 - 118 
Regel: 2740 - 117 

Regel: 2750 - 137 
Regel: 2760 - 119 
Regel! 2770 - 118 
Regel: 2780 - 113 
Regel! 2790 - 138 
Regel: 2800 - 81 
Regel: 2810 - 135 
Regel: 2820 - 124 
Regel! 2830 - 128 
Regel: 2840 - 126 
Regel: 2850 - 112 
Regel! 2860 - 117 
Regel: 2870 - 136 
Regel: 2880 - 139 
Regel: 2890 - 120 
Regel: 2900 - 109 
Regel: 2910 - 99 
Regel: 2920 - 111 
Regel! 2930 - 132 
Regel: 2940 - 127 
Regel! 2950 - 58 
Regel: 2960 - 58 


Rege 

2970 - 

58 

Rege 

2980 - 

82 

Rege 

2990 - 

90 

Rege 

3000 - 

159 

Rege 

3010 - 

137 

Rege 

3020 - 

179 

Rege 

3030 - 

119 

Rege 

3040 - 

192 

Rege 

3050 - 

58 

Rege 

3060 - 

58 

Rege 

3070 - 

58 

Rege 

3080 - 

47 

Rege 

3090 - 

122 

Rege 

3100 - 

107 

Rege 

3110 - 

115 

Rege 

3120 - 

111 

Rege 

3130 - 

73 

Rege 

3140 - 

113 

Rege 

3150 - 

128 

Rege 

3160 - 

107 

Rege 

3170 - 

112 

Rege 

3180 - 

114 

Rege: 

3190 - 

135 

Rege! 

3200 - 

106 

Rege] 

3210 - 

116 

Regel 

3220 - 

115 

Rege! 

3230 - 

63 

Regel 

3240 - 

56 

Regel 

3250 - 

58 

Rege] 

3260 - 

58 

Rege] 

3270 - 

196 

Rege] 

3280 - 

2 

Rege] 

3290 - 

218 

Regel 

3300 - 

58 

Regel 

3310 - 

58 

Regel 

3320 - 

92 

Regel 

3330 - 

92 

Regel 

3340 - 

74 

Regel 

3350 - 

74 

Regel 

3360 - 

68 

Regel 

3370 - 

68 

Regel 

3380 - 

64 

Regel 

3390 - 

64 

Regel 

3400 - 

80 

Regel 

3410 - 

80 

Regel 

3420 - 

68 

Regel 

3430 - 

68 

Regel 

3440 - 

64 

Regel 

3450 - 

64 

Regel 

3460 - 

68 

Regel 

3470 - 

66 

Regel 

3480 - 

74 

Regel 

3490 - 

74 

Regel 

3500 - 

92 

Regel 

3510 - 

92 

Regel 

3520 - 

2 

Regel 

3530 - 

251 

Regel 

3540 - 

52 

Regel 

3550 - 

52 

Regel 

3560 - 

52 

Regel 

3570 - 

52 

Totaal 

41508 



Dit nummer weer verder met de provincies 
van Nederland per helicopter. Veel lezers 
zullen inmiddels wel ontdekt hebben dat 
grote stukken van de programma's gelijk 
zijn en dat daarom niet het gehele 
programma hoeft overgenomen te worden. Met 
het 'MERGE' commando kunnen de afwijkende 
stukken bij een vorige provincie worden 
ingevoegd. Wel moet hiermee opgepast 
worden want in de onderdelen die gelijk 
schijnen zitten toch, zo hier en daar, 
kleine verschillen. Dit is ook de reden 
waarom wij zelf geen ' MERGE’ programma's 
hebben gemaakt en de complete listings 
afdrukken. Omdat de listings grote overeen 
komst vertonen en om niet het hele blad 
met vrijwel gelijke programma's te vullen 
blijven verder de controle tellingen 
achterwege. Voor de vaste stukken geldt 
uiteraard dezelfde telling als bij de 
vorige provincies. 

Succes! 


DRENTHE 


Beel dscherms 


WIDTH 


3ó 


1 -MARIAL COMPUTING & MSX GIDS 

2 KEYDFF 

4 GDBUB 10000 
6 GDTD 3000 

8 Veranderd voor DRENTE door A.Vuij 

9 ’HOÜFDLUB 

10 SOUND 0,0! SOUND 1,4: SOUND 6,24 
20 SOUND 7, ?<B1 11 101 10: SOUND 8,16 

30 SOUND 12,3: SOUND 11,50: SOUND 13,1 
2 ’ 


40 CO=STICK<BB) 

50 IF CO=0 THEN 150 

60 ON CO GOTO 70,80,90,100,110,120,1 
30,140 

70 YA=YA--3:G0T0 150 

80 XA=XA+3: YA=YA-3:G0T0 150 

90 XA=XA+3:G0T0 150 

100 XA=XA+3: YA=YA+3: GOTO 150 

110 YA=YA+3:G0T0 150 

120 XA=XA-3: YA=YA+3: GOTO 150 

130 XA=XA-3:G0T0 150 

140 XA=XA-3: YA=YA-3:G0T0 150 

150 IF TI ME >=3000 THEN LINE ( 17, 17S) - 

< 255 , 1 88 ) , 7 , BF : GOTO 5000 

IF TI ME >2500 THEN AA=9 
170 T I =T I ME » . 08533 
180 LINE(TI, 1B9)-(TI, 191) ,AA 
200 F'UT SPRITE 1 , (XA-4, YA-4) , 15, 1 
220 PUT SPRITE 1 , < XA-4, YA-4) ; 15; 2 
240 PUT SPRITE 1 , ( XA-4, YA-4) ; 15, 3 
260 IF ABS (XA-XiXll AND ABS (YA-Yl 
Xll THEN CIRCLE < X 1 , Y1 ) , 2, 7: PAINT ( X 
1, Yl) ,7: CIRCLE <X1 , YÏ ) , 2, 4: PAINT <X 1 , 
Yl),4 ■ ’ 

280 IF ABS (XA-X1X3 AND ABS (YA-Yl) 
<3 THEN GOSUB 1000 
300 GOTO 40 
998 ' 


999 ' PLAATS GEVONDEN 

1000 CUR=TIME 

1010 LINE <17, 178)-(255, 188) ,7,BF 
1020 FOR G=0 TD 7:COLOR' , ,G:NEXT 
1030 SC=SC+250 


1040 LINE(150,21)-(248,29) , 14, BF 
1050 PSET(152;22) , 14 ' ' 

1060 COLOR 1 : PRINT# 1 , "SCORE: " 5 UB ING" 
######». SC 

1070 AP=AP+1:IF AP<8 THEN 3000 

1998 ’ 

1999 •’ 8 PLAATSEN GEVONDEN 

2000 SOUND 7,8<B1 11 11000 
2010 PLAY"T170V1 102L4CL8DEL4FGL7F. 

"T170V12O5L2C. L404BAGG" , "R" 

2020 FOR F=1 TO 100; FOR G=1 TO 7 
2030 COLOR, , Gs NEXT: NEXT 
2040 BO= I NT ■( ( 3000-CUR ) /50 ) 

2045 SOUND 13, 8: SOUND 12, 2: SOUND 1,4 
:SOUND 7, 8<B1 11 101 10- SOUND 8,16 
2050 FOR F=1 TO BO 
2060 SC=SC+100 

2070 LINE ( 150, 21 ) - (248,29) , 14, BF 

2080 PSET ( 152, 22) , 14; COLOR' 1 

2090 PR I NT# 1 , " SCORE : " ; US I NG " ###### • 

■ BC 

2110 NEXT F 
2120 SOUND 8,0 

2130 LINE (0, 189)-(255, 191) ,7,BF 
2140 NIV=NIV+1;IF NIV>6 THEN 5000 
2150 GOBUB 63040 

2998 ' 

2999 ’ PLAATS KIEZEN 

3000 IFNIV=0THENREBTORE 4000 
3002 I FN I V= 1 THENRESTORE40 1 0 
3004 IFNIV=2THENREBTORE4020 
3006 I FN I V=3THENRESTORE4022 
3008 I FN I V=4THENREBTORE4030 
30 1 0 I FN I V=5THENREBTORE4040 
3012 IFNIV=6THENRESTORE4050 
3020 PNR=INT (RND (-TIME) *8) 

3040 U$=STR$(PNR) 

3060 FOR F=0 TO PNR 
3080 RE AD A$,X1,Y1 
3100 NEXT F 

3120 I F I NBTR ( B$ , U$ ) < >0THEN3000 
3130 B$=B$+U$ 

3140 X1=X 1/1. 3+20 

3180 PSET(17, 178) ,7:C0L0R 1 

3190 PRINT#1, "VLIEG NAAR;"»,A* 

3200 TIME=CUR 
3220 GOTO 10 

3998 •’ 

3999 =• DATAREGELS MET PLAATSEN 

4000 DATA ASSEN, 135, 74, HOOGE VEEN, 125 
, 141,C0EV0RDEN, 164, 154,EMMEN, 187, 120 
,MEPPEL,83, 149,BCHÖONEBEEK, 184, 152, S 
MILDE, 120,87, ZUIDLAREN, 152; 48 ' 

4001 •' 

4010 DATA NIEUW-BUINEN, 190, 81 , BEILEN 

, 1 30 , 1 08 , DW I NGELO , 1 07 , i 1 4 , N I EÜW- AMBT 
ERDAM, 182, 140, ROLDE, 1 48, 75, FREDERIKS 
OORD, 81 , 1 14, WEBTERBDRK, 143, 109, SCHOO 
NOORD, 164, 1 10 ’ 

4011 ' 

4020 DATA WIJSTER, 132, 120, VEENHUIZEN 
, 1 1 2 , 63 , KL A Z I ENA VEEN , 20 1 , 1 36 , RU I NEN , 
107, 1 3 1 , N I EUW-WEERD I NGE ,201,104, RODE 
N, 114, 39, GIETEN, 164, 70, ÖDOORN, 180, 10 

4021 ’ 

4022 DATA BORGER ,169,89, EELDE ,134, 39 

,ERIKA, 192, 139, vries; 136,54, ANLO, 154 
,60,EMMERCOMPASCUUM,208, Ï16;eXL0, 181 
,96,HAVELTE,89, 130 ' • • 

4030 DATA VALTÈRMOND, 195,98,H00GHALE 
N, 132,91,DIEVER,99, 1 09, WÏTTÈVEEN, 150 
, 120,OOSTERHESSELEN, 162, 133,PATERSW0 
LDE, 135,35,HDLLANDSCHE“VELD, 136,146, 
DALEN, 167, 145 

4031 ' 


4040 DATA ZUIDWOLDE, 1 18, 153,N0RG, 120 
, 57 , T YNAARLO , 1 42 , 53 , GROLLO , 1 52 , 87 , RO 
BWINKEL, 92, 144, ZWEELO, 163, 123, NIEÜW- 
SCHOONEBEEK, 198, 155,SLEEN, 175,125 

4041 ’ 

4050 DATA ZWINDEREN, 151 , 141 , BEES, 156 
, 134,EEXT, 160,67,NIÉUW-DORDRECHT, 194 

LD , 92 , 1 44 , ELP ,150,1 02 , SCHOONLO , 1 60 , 9 

4998 •’ 

4999 ’ EINDE SF>EL 

5000 FOR F=1 TO 3: PUT SPRITE 1,(200 
200) ,7, F: NEXT 

5005 IF NIV>6 GOTO 5020 
5010 LINE ( 90 , 1 1 0 ) - ( 1 64 , 1 20 ) , 1 4 , BF 
5015 P8ET(96, 112) , 15;PRÏNT #i,"tlJD 

OP ! " j IJ 

5020 SOUND 1,0: SOUND 9,0: SOUND 7 , S<B 1 

1111110 

5025 FOR G=1 TO 7 : SOUND 8,15-G:F0R F 
=170 TO 255: SOUND 0, F: COLOR ,,G:NFXT 
;NEXT ’ 

5030 SOUND 8,0 

LINE (90, 1 10) - ( 164, 120) , 4, BF 
LINE(0, 189)-(255, 191) ,7,BF 
IF BOHS THEN HS=SC 
8C=0:NIV=0 
GOSUB 63040 
XA=145: YA=100 
GOTO 6 


5035 
5040 
5045 
5050 
5100 
51 10 
5120 

5998 

5999 

6000 
6005 
6010 
10 " 
6020 


’ INTRODUCTIE-TUNE 
SOUND 7 , 8<B 1 1 1 1 1 000 
FOR F=1T0 2 
PLAY "T170V13", "T170V12" 


"T170V 


C$= "05L4CEFEDC04B05CL2DDL4CEFE 
DCC04B05L2CC" 

6040 D$= "04L4EGAGB.L8ABG05L4C041 2BB 
05L4C04GAGBAAGL2EE " 

"D4L4CCFCGCGAL2GGL4CCFCGAFG 

6100 PLAY C$,D$,E* 

6120 C$= "05L4DC04B05CDEL2DL4DC04B05 
CDEL2DL4CEFEDCC04B05L2CC" 

6140 D^= "04L4B05C04G. L8AL4B05C04L2B 
L4B05C04G.L8AL4B05C04L2B05L4C04GAGBA 

AGL2EE" 

6160 E$= "04L4GAGCGCL2GL4GCGCGCL2GL4 
CCFCGAFGL2CC" 

6200 PLAY C^,D$,E$ 

6300 NEXT F ■ 

6500 RETURN 

9998 ’ 

9999 =• TITELPAGINA 

10000 SCREEN 2,0,0 
10040 COLOR 15,4,4;CLS 

10060 OPEN*‘BRP; " FOR OUTPUT AS#1 
10080 RESTORE 10450 

1 0090 SOUND 1,9: SOUND 13,8: SOUND 12,3:8 

0UND7,?(B1 1 1 101 10; BOUNDB, 16 

10100 FOR F=62.5 TO 187; 5 STEP 25 

10120 LINE (125,5)-(F,25) ,7 

10140 CIRCLE STÊP(0,9) ,9,7 

10160 READ A* - ■ . 

1 0 1 80 PSET ( F-2 , 30 ) , 4 
10190 COLOR 7;PRINt#l,Aï 
10200 NEXT F 

10220 FOR F=25 TO 225 STEP 25 
10240 LINE (125, 45) -(F, 70) ,9 
1 0260 C I RCLE STEP ( 0 , 9 ) , 9 , 9 
10280 READ A$ 

1 0300 PSET ( F-2 , 75 ) , 4 
10310 COLOR 9;PRINt#l,A* 

10320 NEXT F 

10340 FOR F=87.5 TO 167.5 STEP 25 
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10360 LI NE (125,92)-(F, 115) , 11 
10380 CIRCLE STÈP<0,9) i9, 1 1 ■ 

10400 RE AD A$ 

10420 PSET (F-2, 120) , 4 
10430 COLOR ll:PRINt#l,A^ 

10440 NEXT F 

10450 DATA A,L,B,E,R,T,C,D,M,P,U 
10455 DATA T , I , N, B, 1 , 9, 8^ 6 
10460 PBET<66,i4B),4 

10470 COLOR 14;PRINT#1, presenteer 
t • 

10480 PSET (25, 165) ,4 

10485 COLOR l:PRINt#l," DRENTE F^ER 
HELICOPTER" 

10490 PSET (93, 178) ,4 

10495 COLOR 14:PRINT#1 , (C) 1986" 

10498 FOR F=300TO0STEP-1 ;SOUND8,F/20 

:NEXT 

10500 FOR F=1 TO 1500SNEXT 

10999 ’ INSTRUCTIES 

11000 SCREEN 0 
11020 WIDTH 37 

11040 COLOR 1,5,5;CLB 

11042 LOC ATE4i 10! PRINT "WIL TE INSTRU 

KTIES? (J/N/)" 

11044 I $= I NKE ! I F I $= " " THEN 1 1 044 
11046 I F I $= " J " OR I $= " j " THEN 1 1 060ELSE I 
F I $= " N " OR I $= " n " THEN63000 EL.se 11044 
11060 CLS:PRINT" DRENTE PER HELI KOP 
TER" 


11080 LOCATE 4, 4: PRINT " 
DIT SPEL IS HÉT 
JS LEREN VAN PLAATS- 
E PROVINCIE DRENTE." 
11100 LOCATE 2, Bs PRINT " 
helicopter naar de 
gde plaatsen voordat 
is. Houd de tijdbalF< 
i n het oog ! " 

11120 LOCATE 2, 13! PRINT" 
tste plaats bereiFst 
op een hoger niveau." 
11140 LOCATE 12, 17! PRINT 


HET DOEL VAN 
SPELENDERWI 
NAMEN IN D 

Vlieg met je 
acht gevraa 
de tijd om 
dus goed 

Nadat de ach 
is, kom je 

"VEEL SUCCES 


11160 LOCATE 4, 19!pRINT"Druk na het 
tekenen van de kaart! 

- spat i eb 

alk voor toetsen - vuurkn 

op voor joystick 1" 

11180 GOSUB 6000 

63000 SCREEN2 ,0,0: COLDR7 ,7,7: CLS 

63002 X^=“" ■ ■ 

63003 RESTORE 63004 

63004 DATA 0,98,54,4, 32 , 1 08 , 70 ,0,24, 
24,24, 23 1,231,24,24,24, 0 ,70,1 08 ,32,4 
,54,98,0 

63005 FOR F=1 TO 3: FOR G=1 TD 8 

63006 READ X 

63007 X$=X^+CHR^ ( X ) 

63008 NEXT G 

63009 SPRITE$(F)=X$ 

63010 X$="" 

63011 NEXT F 

63017 RESTORE 63026 

63018 COLOR 4 

63019 X 1=210! Yl=160 

63020 READ X2, Y2 

6302 1 L I NE ( X 1 / 1 . 3+20 , Y 1 ) - ( X2/ 1 . 3+20 , 
Y2) 

63022 SWAP XI, X2! SWAP Y1,Y2 

63023 ON ERROR GOTO 63025 

63024 GOTO 63020 

63025 PA I NT ( 1 40 , 1 1 0 ), 4 

63026 DATA 213,152,213,115,215,109,2 

13, 108,213, 100,204, 100,210,90,205,88 
, 158,41, 145,45', 140^ 37, 136,36, 137,32, 
135,32 


63027 DATA 129,23,125,24,123,22,120, 

21, 115,26, 113,27, 112,28, 110,29, 110,3 
3, 105,40, 105,45, 102,52,98,50,96,53' 1 
06,56 

63028 DATA 105,65,115,80,110,90,101, 

95,97,93,90,92,84, 101 , 72, 1 10; 84^ 125; 
78, 133,72, 136,79, 151,82, 150,84, 153,8 
7,152 

63029 DATA 88,154,90,1 53 ,90,1 55 ,93,1 
54,95, 157,98, 156,99, 157, 104; 155. 104- 
158,110, 163, 114,169,116,167,118,167, 
119,165,124,168 

63030 DATA 125,166,134,167,133,160,1 
37, 155, 147, 153, 160; 157' 162, 161 , 166, 1 
57, 170, 158, 172, 156, 176, 157, 177, 156, 1 
9/D, 156, 195, 158,200, 156,210, 160' 

63040 AP=0:CUR=0: XA=145: YA=100: AA=1 : 
E$=" " 

63060 COLOR , , 7 

63062 LINE(150,5)-(24B, 13) , 14, BF 

63063 PSET (152, 6) ! COLOR 1:PRINT#1,"N 
IVEAU: ";UBING"#####”!NIV 

63065 LÏNE (150,21 ) - (248, 29) , 14, BF 
63067 PSET ( 1 52 , 22 ) , 1 4 

63069 COLOR 1 : PR I NT# 1 , " SCORE : " ; US I NG 

'•JiiHiititit'’ » cr 

63070 L I NE ( 1 5 , 69 ) - ( 73 , 89 ) , 1 4 , BF ! PSET 
(17,70) , 14!PRINT#1, "HOOGSTE"' 

6307 2 PSET ( 1 7 , 80 ) , i 4 : COLOR 6 : PR I NT# 1 
, US I NG "######" 5 HS: COLOR 1 

63073 L INE (7, 3) - (60, 13) , 14, BF: PSET (8 
,4) , 14!PRINT#1, "DRENTE"' 

63075 PSET(17, 178) ,7!PRINT#1, "DRUK S 
PATIEBALK/VUURKNOPl " 

63080 IF STRIG(0)=-1 THEN BB=0 ELSE 
IF STRIG(1)=-1 THEN BB=1 ELSE 63080 
63090 LINE(17, 178) -(255, 188) ,7,BF 
63100 RETURN 

63200 ’MET DANK AAN RICHARD ALTENBUR 
G EN ZIJN PROGRAMMA TOPOOV 


GELDERLAND 

1 ’ALBERT VUIJK CDEVORDEN 1986 

2 KEYOFF 
4 GOSUB 10000 
6 GOTO 3000 
8 •’ 

9 ’HOOFDLUS 

10 SOUND 0,0! SOUND 1,4: SOUND 6,24 
20 SOUND 7, S<B1 11 101 10: SOUND 8,16 

30 SOUND 12,3: SOUND 11,50: SOUND 13,1 
2 

40 CO=STICK(BB) 

50 IF CO=0 THEN 150 

60 ON CO GOTO 70,80,90,100,110,120,1 

30,140 

70 YA=YA-3:GOTO 150 

80 XA=XA+3: YA=YA-3:GOTO 150 

90 XA=XA+3:B0TD 150 

100 XA=XA+3: YA=YA+3:G0T0 150 

110 YA=YA+3:G0T0 150 

120 XA=XA-3: YA=YA+3:G0T0 150 

130 XA=XA-3:B0T0 150 

140 XA=XA-3: YA=YA-3:G0T0 150 

150 IF TI ME >=3000 THEN LINE(17,172)- 

(255, 182), 7, BF: GOTO 5000 

160 IF TI ME >2500 THEN AA=9 

170 TI=TI ME *.08533 

180 LINE(TI, 189)-(TI, 191) ,AA 

200 PUT SPRÏTE 1, (XA-4, YA-4) , 15, 1 

220 PUT SPRITE 1 , ( XA-4, YA-4) , 15, 2 

240 PUT SPRITE 1 , ( XA~4, YA~4) , 15, 3 

260 IF ABS (XA-XiXll AND ABS (YA-Yl 

XI 1 THEN CIRCLE ( X 1 , Y1 ) , 2, 7: PAINT (X 

1,Y1) ,7: CIRCLE ( X 1 , Yl ) , 2; 4: PAINT ( X 1 , 

Yl),4 
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(YA-Yl) 


280 IF ABS (XA-X1X3 AND ABS 
<3 THEN GOSUB 1000 
300 GOTO 40 

998 •’ 

999 •’ PLAATS GEVONDEN 

1000 CUF-TIME 

1010 LINE ( 17, 172) -(255, 182) ,7, BF 
1020 FOR 6=0 tO 75COLOR' , ,G:NEXT 
1030 SC=SC+250 

1040 LINE ( 198,41 )- (248, 51 ) , 14, BF 

1050 PSET(200,42) , 14 

1060 COLOR 1 : PR INT# 1 , US ING "######’• »B 

Lr 

1070 AP=AP+1;IF AP<8 THEN 3000 

1998 ’ 

1999 =• 8 PLAATSEN GEVONDEN 

2000 SOUND 7,?<B111 11000 

20 1 0 PL AY *' T 1 70V 1 1 02L4CLBDEL4FBL2F . " . 

" T 1 70 V 1 205L2C . L404BAGG " , " R " 

2020 FOR F=1 TO 100: FOR G=1 TO 7 
2030 COLOR, , G; NEXT: NEXT 
2040 BO=INT ( (3000-CUR) 750) 

2045 SOUND 13, 8: SOUND 12, 2; SOUND 1,4 
; SOUND 7, ?<B1 11 101 10; SOUND 8,16 
2050 FOR F=1 TO BO 
2060 SC=SC+100 

2070 LINE (198, 41) -(248, 51 ) , 14, BF 
2080 PBET ( 200 , 42 ) , 1 4 : COLOR ‘ 1 ' 

2090 PRINT#1 ,ÜSING "######"; SC 
2110 NEXT F 
2120 SOUND 8,0 

2130 LINE (0, 189) -(255, 191) ,7, BF 
2140 NIV=NIV+1;IF NIV>5 THEN 5000 
2150 GOSUB 63040 

2998 •’ 

2999 ’ PLAATS KIEZEN 

3000 I FN I V=0THENREBTORE4000 
3002 IFNIV=1THENRESTORE4010 
3004 IFNIV=2THENREBTORE4020 
3006 I FN I V=3THENRE8TORE4030 
3008 IFNIV=4THENRESTORE4040 
3010 IF NIV=5THENRESTORE4050 
3020 PNR= I NT ( RND ( -T I ME ) *8 ) 

3040 B1$=STR$ (PNR) 

3060 FOR F=0 TO PNR 
3080 RE AD A$,X1,Y1 
3100 NEXT F 

3120 I F I NSTR ( B$ , B 1 $ ) < >0THEN3000 
3140 B$=B$+B1$ 

3160 X1=X 1/1. 2+20 

3180 PSET(17, 172) ,7:COLOR 1 

3190 PR I NT# 1 , " VL I ÉG NAAR ; " ; A^ 

3200 TIME=CUR 
3220 GOTO 1 0 

3999 ' DATAREBELS MET PLAATSEN 

4000 DATA ARNHEM, 131,115, APELDOORN, 1 
35, 69, ZUTPHEN, 165, 84, DOEtiNCHEM, 177, 
118, NIJMEGEN, 123, 144, EDE, 100, 103, WAG 
ENINGEN, 100, 116,TIEL,70, 133 ' 

4001 . 

4010 DATA HARDERWIJK, 95, 44, NUNSPEET, 

1 15,35, WINTERSWIJK, 230, 1 16!, EIBERBENI 
220,91 , GELDERMALSEN, 53, 135, CULEMBORG 
,46, 121,NIJKERK,76,68,ÊLBURG, 120,25 

4020 DATA TERBORG, 185, 128,L0BITH, 155 

,139, ELSPEET , 1 1 4 , 55 , EPE , 1 38 , 42 , HATTE 
M, 147, 19,PUTTEN,91,61,GR0ENL0,216, 10 
3, VELP, 138, 1 15 ■ • 

4021 •' ■ 

4030 DAT A DRUTEN ,94,134, AALTEN ,214,1 
25, OOSTEFÏBEEK, 123, 1 i5,FiÉNKUM, 106, 116 
.BROESBEEK, 132, 155, S-HEERENBÊRG, 172, 
1^'.4,ELST, 122, 128, LOCHEM, 190,80 ’ 

4031 •’ 


4040 DATA ZALTBOMMEL, 48, 150, WI JCHEN, 
106, 150,ULFT, 187, 134, ERMELO; 94, 52, Dl 
EREN , 1 54 , 1 0 1 , DOESBURG , 1 58 , 11 0 , Z E VEN A 
AR, 150, 126,BORCULO,205,87' 

4041 ’ ■ 

4050 DATA ZETTEN, 103, 126, NEEDE, 216, 

5 , WESTER VOORT , 1 37 , 1 20 , LUNTEREN , 93 , 9 
, BARNEVELD, 89, 84, DINXPERLO, 200, IT^é,. 
ARDEREN, 105, 66, BROMMEN, 160^95 

4998 ’ ’ 

4999 ' EINDE SPEL 

5000 FOR F=1 TO 3; PUT SPRITE 1,(200, 

200) ,7, F; NEXT ’ ’ 

5005 IF NIV>5 GOTO 5020 

5010 LINE (86, 70) -(170, 80) , 14, BF 
5015 PSET (88, 72) , 15; PRINT#!, "TIJD OP 

5020 SOUND 1,0: SOUND 9,0; SOUND 7,8<B1 
1111110 

5025 FOR G=1 TO 7;S0UND 8,15-G;F0R F 
-170 TO 255; SOUND 0, F; COLOR ,,G;NEXT 
;NEXT ” 

5030 SOUND 8,0 

5035 LINE (86, 70) -(170, 80) ,4, BF 
5040 LINE(0, 189) -(255, 191) ,7, BF 
5045 IF SOHS THEN HS=SC ' ' 

5050 SC=0;NIV=0 
5100 GOSUB 63040 
5110 XA=125:YA=85 
5120 GOTO 6 

5998 =■ 

5999 =■ INTRODUCTIE-TUNE 

6000 S0UND7 , 8<B 1 1 1 1 1 000 

6001 A1*="V8T108O4L4AO5DL8CDO4L2B-L 4 
A05DGEFL8EDC04B-L4A05DL8CDL204B-1 4AG 
E.L8FL2F." 

60 1 0 A2$= " V6T 1 0BO4L2FFL4EL2FL4B-GL2A 
L4GL2FFL4EFDC03B-L2A. " 

6020 A3$="V6T108O3L4FB-AGCFB-GO4CO3F 
A04C03FB-AGCF02B-03C02C " 

6030 A4^="02L4FA03C" 

6040 A5$="02L2F. " 

6050 PLAY Al$, A2$, A3$+A4f 
6060 PLAY Al$, A2S, A3$+A5$ 

6070 Bl$="05L2AL4GFB-AL2GL4FEAGFl 8GF 
EDL2C#L4DEL8EFGAGFEDC04B-" 

6080 B2$= " 05R4L4CC#DFEL2DL4C04B- A05C 
#D04AGL2A. L4B-A05C#L2DR4 " 

6090 B3*="03L4F02FED03DC02L2B-L4AGFE 
DC02B-A03EFGA02AL203DL4E " 

6100 PLAY B1$,B2$,B3$ 

6110 PLAY Al$; A2$; A3$+A5$ 

6500 RETURN 

9998 ' 

9999 ’ TITELPAGINA 

10000 SCREEN 2,0,0 
10040 COLOR 15,4,4:CLS 

10060 OPEN " GRP ;" FOR OUTPUT AS#1 
10080 RESTORE 10450 

1 0090 SOUND 1,9; SOUND 13,8; SOUND 1 2 , 3 : S 

0UND7, ?<B1 1 1 101 10: SOUNDS, 16 
10100 FOR F=62.5 TO 187’ 5 STEP 25 
10120 LINE (125,5)-(F,25) ,7 
10140 CIRCLE STEP (0,9) ,9,7 
10160 RE AD A$ 

10180 PSET(F-2,30) ,4 
10190 COLOR 7:PRINt#l,A$ 

10200 NEXT F 

10220 FOR F=25 TO 225 STEP 25 
10240 LINE (125, 45) -(F, 70) ,9 
10260 CIRCLE StEP(0,9) ,9,9 
10280 READ A$ 

1 0300 PSET ( F-2 , 75 ) , 4 
10310 COLOR 9;PRINt#l,A$ 

10320 NEXT F 

10340 FOR F=87.5 TO 167.5 STEP 25 
10360 LINE ( 125, 92) - (F, 1 15) , 1 1 
10380 CIRCLE STEP (0,9), 9, 11 
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O LH 00 


10400 RE AD A$ 

10420 PSET (F-2, 120) ,4 
10430 COLDR ll:PRINt#l,A$ 

10440 NEXT F 

10450 DATA A,L,B,E,R,T,C,D,M,P,LI 
10455 DATA T, I , N, G, 1 i 9, B, 

104é>0 PSET (66, 148) ; 4' 

10470 COLOR 14s PRINT#! , presenteer 
t 

1 0480 PSET ( 25 , 1 65 ) , 4 

104B5 COLOR 1 -PRINT#!, "GELDERLAND PE 
R HELICOPTER" 

10490 PSET (93, 178) ,4 

10495 COLOR 14:PRINT#1 , " (C) 1986" 

1 0498 FOR F=300TO0STEP- 1 s SOUNDS , F/ 20 
sNEXT 

10500 FOR F=1 TO 1500: NEXT 

10999 ’ INSTRUCTIES 

11000 SCREEN 0 
11020 WIDTH 37 
11040 COLOR 1,5,5;CLS 

11050 LOCATE 4, i0;PRINT"Wi 1 je Instr 
ucties? (J/N) " 

1 1 052 I $= I NKE Y$ : I F I $= " " THEN 1 1 052 
1 1 054 I F I *= " N " OR I $= " n " THEN63000ELSE I 
F I *= " J " OR I $= " j " THEN 1 1 060ELBE 11052 
1 1 060 CLS ; L0CATE4 , 1 ; PR I NTCHR$ (175)+" 
GELDERLAND PER HELIKOPTER "+CHR$(17 
4) 

11080 LOCATE 4, 4: PRINT "HET DOEL VAN 
DIT SPEL IS HÉT SPELENDERWI 

JS LEREN VAN PLAATS- NAMEN IN D 

E PROVINCIE GELDERLAND. " 

11100 LOCATE 2, 8; PRINT "Vlieg met je 
helicopter naar de acht gevraa 

gde plaatsen voordat de tijd om 

is. Houd de tijdbalk dus goed 

in het oog ! " 

11120 LOCATE 2, 13:PRINT"Nadat de ach 
tste plaats bereikt is, kom je 

op een hoger niveau." 

11140 LOCATE 12, 17; PR INT "VEEL SUCCES 

I } 1 M 

11160 LOCATE 4, 19:PRINT"Druk na het 
tekenen van de kaart; 

— spat i eb 

alk voor toetsen - vuurkn 

op voor joystick 1” 

11180 GOSUB 6000 

63000 SCREEN2 , 0 , 0 ; C0L0R7 ,7,7; CLS 

63002 X$="" ■ ■ 

63003 RESTORE 63004 

63004 DATA 0,98,54,4,32,108,70,0,24, 
24,24,231,231,24,24,24,0,70; 108,32,4 

54 98 0 

63005 FOR F=1 TO 3: FOR G=1 TO 8 

63006 READ X 

63007 X^=X$+CHR$ (X) 

63000 NEXT G 

63009 SPRITE^(F)=X$ 

63010 X^="" 

63011 NEXT F 

63017 RESTORE 63026 

63018 COLOR 4 

63019 X 1=123: Yl=7 

63020 READ X2.Y2 

6302 1 I F X 2=0 AND Y2=0THEN63025 

63022 L I NE ( X 1 / 1 . 2+20 , Y 1 ) - ( X2/ 1 . 2+20, 
Y2) 

63023 SWAP X1,X2;SWAP Y1,Y2 

63024 GOTO 63020 

63025 PA I NT ( 1 00 , 1 00 ), 4 

63026 DATA 123, 7, 1 16', 25, 95, 40, 86, 47, 
83,60,76,59,75,61,66,62,66,67,71,71, 
71 ; 79 ; 76; 79 ; 79 ; 89; 77 ; 89; 75 ; 97’ 


63027 DATA 81,97,86,92,87,1 03 , 90 , 1 06 
,89, 109,94,116,93,118,95, 120,90, 122, 
80, 116,71,115,66, 119,63, 116,57,120,5 
2,119 

63028 DATA 47,115,44,119,39,118,32,1 

30.30.135.24.140.16.139.12.145.16.14 
6, 19, 150,21,150,25, 154,30, 153,34, 156 
,31,164 

63029 DATA 35,162,42,162,45,164,55,1 

64.60. 159.61. 154.66. 148.73. 149.76. 14 
6,81, 147,85, 145,90, 145,95, 147,99, 153 
,103,153 

63030 DATA 110,161,123,161,125,156,1 
29, 157, 134, 163, 140, 159, 136; 150; 133; 1 
49, 135, 145, 142, 145, 149, 140, 164; 144; 1 
55, 132, 160, 131, 166, 137 

63031 DATA' 175, 136; 178, 141,182, 140, 1 
85, 143, 185, 145, 190, 145, 190, 140, 188, 1 
38, 190, 137, 194, 139, 196, 138,200, 140’, 2 
08,134,210,135,225,128’ 

63032 DATA 230,131,237,126,240,119,2 

43,118,243,114,230, 105,225, 103,225,9 
8,233,94,232,87,221,85,221,79,219,77 
,210,75,199,75 

63033 DATA 188,62,177,67,160,64,158, 
j I tj7 , 62 , 1 54 , 58 , 1 50 ,49,1 50 , 38 , 1 55 , 3 

7. 155.30. 152.23. 151. 18. 142. 10. 135. 15 
,134,14,125,7,123,7,0,0 

63040 AP=0 ; CUR=0 ; X A= 1 25 ; Y A=85 ; A A= 1 ; B 
$= " 

63060 COLOR , , 7 

63061 LINE (7, 3) - (89, 13) , 14, BF: PSET (8 
, 4 ) , 1 4 ; PR I NT# 1 , " GELDERLAND " 

63062 LINE (198, 15) -(248, 23) , 14, BF 

63063 PSET ( 200 ,16); COLOR 1 : PR I NT# 1 , " 
NIV; ";USING"##";NIV 

63065 LINE (198, 31) -(248, 51) , 14, BF 
63067 PSET (200, 32) , 14 

63069 COLOR 1 ; PRINt#l , "SCORE: ": PSET ( 
200 , 42 ) , 1 4 ; PR I NT# 1 , US ï NG " ###### •> • SC 

63070 LINE (15, 29) - (73, 49) , 14, BF; PSET 
(17,30) , 14:PRINT#1, "HOOGSTE"’ 

63072 PSET ( 17, 40) , 14; COLOR 6;PRINT#1 
, US I NG "####### ";HS: COLOR 1 
63075 PSET(17, 172) ,7;PRINT#1, "DRUK S 
PATIEBALK/VUURKNOPi " 

63080 IF STRIG(0)=-1 THEN BE-s=0 ELSF 
IF STRIG(1)=-1 THEN BB=1 ELSE 63080 
63090 LINE (17, 172) -(255, 182) ,7,BF 
63100 RETURN 

63200 =■ MET DANK AAN RICH. ALTENBURG 
EN ZIJN PROGRAMMA TOPOOV 


NOORD-HOLLAND 
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1 ’ALBERT VUIJK CDEVDRDEN 1986 

2 KEYOFF 

4 GOSUB 10000 
6 GOTO 3000 

8 ’ l/' 

9 ’ HOOFDLOS 

10 SOUND 0,0; SOUND 1,4: SOUND 6.24 
20 SOUND 7, ?<B1 11 101 10; SOUND 8,16 

30 SOUND 12,3; SOUND 1 1 , 50 ; SOUND 13,1 

40 CO=STICK(BB) 

50 IF CO=0 THEN 150 

60 ON CO GOTO 70,80,90,100,110,120,1 

30,140 ■ ■ ■ ■ ■ 

70 YA=YA-3:G0T0 150 

80 XA=XA+3: YA=YA-3; GOTO 150 

90 XA=XA+3:G0TD 150 

100 XA=XA+3: YA=YA+3;G0T0 150 

110 YA=YA+3;G0T0 150 

120 XA=XA-3; YA=YA+3; GOTO 150 

130 XA=XA-3;G0T0 150 

140 XA=XA-3: YA=YA-3;G0T0 150 

150 IF TI NE >=3000 THEN LINE(17,172)~ 

(255, 182) , 7, BF: GOTO 5000 

160 IF TI ME >2500 THEN AA=9 

170 TI=T INE *.08533 

180 LINE(TI , 189) ~ (TI , 191 ) , AA 

200 PUT SPRITE 1, (XA-4,YA-4) , 15, 1 

220 PUT SPRITE 1 ; (XA~4i YA-4) ; 15, 2 

240 PUT SPRITE 1 , ( XA-4, YA-4) , 15, 3 

260 IF ABS (XA-XiXll AND ABS (YA-Yl 

XI 1 THEN CIRCLE ( X 1 , Y1 ) , 2, 7; PAINT ( X 

1, Yl) ,7; CIRCLE (X1,Y1) , 2, 4; PAINT (XI , 

I 1 ) j ^ 

280 IF ABS (XA-X1X3 AND ABS (YA-Yl) 
<3 THEN GOSUB 1000 
300 GOTO 40 

998 ’ 

999 •’ PLAATS GEVONDEN 

1000 CUR=TIME 

1010 LINE (17, 172)-(255, 182) ,7,BF 
1020 FOR G=0 TO 7;C0L0R' , ,G;NFXT 
1030 SC=SC+250 

1040 LINE (182, 32) -(2312, 42) , 14, BF 

1050 PSET(184;34) , 14 

^060 COLOR 1 : PR INt#l , US ING "######■• • s 

1070 AP=AP+1;IF AP<8 THEN 3000 

1998 ' 

1999 ’ 8 plaatsen GEVONDEN 

2000 SOUND 7,8/811111000 

2010 PLAY’’T170V1 102L4CL8DEL4FGL2F. ”, 
"T170V12D5L2C.L4O4BAGG”, ’’R" 

2020 FOR F=1 TO 100; FOR G=1 TO 7 
2030 COLOR, ,G;NEXT;NEXT 
2040 BO= I NT ( ( 3000-CUR ) /50 ) 

2045 SOUND 13, 8; SOUND 12, 2; SOUND 1,4 
•.SOUND 7, 8<B1 11101 10; SOUND 8,16 

2050 FDR F=1 TO BD 
2060 SC=SC+100 

2070 LINE (182, 32) -(232, 42) , 14, BF 
2080 PSET ( 1 84 , 34 ) , 1 4 ; COLOR 1 
2090 PRINT#1 ,iJSING "######"; SC 
2110 NEXT F 
2120 SOUND 8,0 

2130 LINE (0, 189) -(255, 191) ,7, BF 
2140 NIV=NIV+1;IF NIV>7 THEN 5000 
2150 GOSUB 63040 

2998 ' 

2999 PLAATS KIE7EN 

3000 IFNIV=0THENRESTORE4000 
3002 I FN I V= 1 THENRESTORE40 1 0 
3004 I FN I V=2THENRESTORE4020 
3006 I FN I V=3THENRESTORE4030 
3008 IFNIV=4THENRESTORE4040 
30 1 0 I FN I V=5THENRESTORE4050 
3012 IFNIV=6THENRESTORE4060 
3014 IFNIV=7THENRESTORE4070 


0.020 PNR=INT(RND(-TIME) #8) 

3040 B1$=STR$(PNR) 

3060 FOR F=0 TO PNR 
3080 READ A$,X1,Y1 
3100 NEXT F 

-^0 IF 1 NSTR ( B$ , B 1 $ ) *v ,>0THEN3000 
3140 B$=B$+B1$ 

3160 X1=X1/1,2+10 
3180 PSET (17, 172) ,7; COLOR 1 
3190 PRINT#1 , "VLIEG NAAR;";A$ 

3200 TIME=CUR 
3220 GOTO 10 
3998 •' 

plaatsen 

4000 DATA AMSTERDAM, 145, 129, HAARLEM, 
115, 126, HILVERSUM, 182, 157, DÉN HELDER 
,127,12, ALKMAAR, 126,79, I JMUIDEN, 109, 
109,BUSSUM, 180, 147, ZAANDAM, 138, 115 ' 

4010 DATA LAREN, 186, 150, ZANDVOORT, 10 
l.i7, WORMERVEER, 132, 103, BEVERWIJK, 1 
18,105, ENKHU I Z EN , 1 90 , 60 , HOORN ,163,72 
401^^ f ,79,32, PURMÉREND , 1 53 1, 1 0 1 ' 

131, 46, BERGEN AAN 
KROMMEN I E , 1 28 , 1 0 1 , KOOG AA 
^1 ,136,110, VOLENDAM , 166, 1 02 , A 

**^PPSP, 165,142, AMSTÊL 

VEEN, 141, 140 
4021' ’ 

4030 DATA NAARDEN, 178, 142, MUIDFN, 167 
^ 1 37 , MEDEMBL I K , 1 68 , 50 , GROÓTEBROEK , 1 8 

, ^ 0 , BROEK OF' L ANGED IJK, 1 3c' , 67 , Z AAND 
’ hoofddorp, 121,141, HEEMST 

EDE ,114,133 

4031 •’ 

4040 data ED AM, 163, 99, MONNICKENDAM, 1 

pE, 113,81,SCHIPH0 
L, 1-c.c., lc.9,VELZEN, 115, 110, DE KOOG, 78, 
24, C ASTRI CUM, 1 17, 93, BROEK IN WATÈRL A 
ND, 158, 115 

4041 ’■ 

4050 DAT A BOVENKARSPEL ,186,60, BENNEB 
ROEK, 110,137, DEN OEVER, 157 18^ HEILOÓ 
, l/c4, 84, MIDDENMEER, 155, 40, ÖUDÈSCHIL D 
,84, 35, HUIZEN, 188, 142 ' 

4051 =■ 

4060 DATA HOOGHOUT, 149, 60, WESTZAAN, 1 
^ i ’ i. ^ ® 5 SCHOORL , 1 20 , 64 , AND IJK, 180, 54 , 
PEPTEN, 1 16,50, BERGEN, 120, 70, HIPPÖLYt 
USH0EF,151,22,WIJK AAN ZEE, 101, 104 

4070 DATA NODRD-SCHARWOUDE, 134, 62, EG 
MOND-B I NNEN , 1 1 6 , 84 , U I THOORN ,139,1 52 , 
WOGNUM, 159,67,SCHELLINGW0UDÉ, 155,123 
, BLOEMEND AAL, 114, 120, HALF WEG^ 129' 126 
, UITGEEST, 122,97 , , 

4998 ' 

4999 ’ EINDE SPEL 

5000 FOR F=1 TO 3 5 PUT SPRITE 1,(200, 

200) ,7, F; NEXT ' ’ 

5005 IF NIV>7 GOTO 5020 

5010 LINE (14,70)-(88,80) , 14,BF 
5015 F'BET ( 16, 72) , 15: PRINT#1 , "TI JD OP 

5020 SOUND 1,0; SOUND 9,0: SOUND 7 , ?/B 1 
1111110 

5025 FOR G=1 TO 7; SOUND B,15-G:F0R F 
"nEXT^° 255; sound 0,F;COLÓR ,,G:NEXT 

5030 SOUND 8,0 

5035 LINE ( 14, 70) - (88, 80) , 7, BF 

5040 L I NE ( 0 , 1 89 ) - ( 255 , 1 9 1 ) , 7 . BF 

5045 IF SOHS THEN HS=SC 

5050 SC=0;NIV=0 

5100 GOSUB 63040 

5110 XA=125;YA=85 

5120 GOTO 6 
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5998 •’ 

5999 •’ INTRODUCTIE-TLINE 

6000 BOUND7 , 8<B1 1 1 1 1000 

600 1 A 1 $= ■' V8T 1 08O4L4 A05DL8CDD4L2B-L4 
AD5DBEFL8EDC04B-L4A05DL8CDL204B-L4AB 
E.LSFL2F " 

60 1 0 A2«= " V6T 1 08O4L2FFL4EL2FL4B-BL2 A 
L4BL2FFL4EFDC03B-L2A. " 

6020 A3$="V6T108O3L4FB-ABCFB-BO4CO3F 
A04C03FB- ABCFÜ2B-03C02C " 

6030 A4$="02L4FA03C" 

6040 A5$="02L2F." 

6050 PLAY Al$, A2$, A3$+A4$ 

6060 PLAY Alf, A2$, A3t+A5« 

6070 B 1 $= " 05L2 AL4BFB- AL2BL4FEABFL8BF 
EDL2C#L4DEL8EFBABFEDC04B-" 

6080 B2f = ■' 05R4L4CC#DFEL2DL4CC34B- A05C 
#D04AGL2A, L4B-AD5C#L2DR4 ’’ 

6090 B3$= "03L4FD2FEDD3DC02L2B-L4ABFE 
DC.02B-A03EFBAD2AL203DL4E " 

6100 PLAY B1$,B2S,B3$ 

6110 PLAY Al$; A2$, A3S+A5$ 

6500 RETURN 

9998 •’ 

9999 ’ TITELPABINA 

10000 SCREEN 2,0,0 
10040 COLOR 15;4;4:CLS 

10060 OPEN"BRP: "■ FOR OUTPUT AS#1 
10080 REBTORE 10450 

1 0090 SOUND 1,9: SOUND 13,8: SOUND 1 2 , 3 : S 

OUND7,8<B11110110:SOUND8, 16 

10100' FOR F=62.5 TO 187: 5 STEP 25 

10120 LINE <125,5)-(F,25) ,7 

10140 CIRCLE BTEP(0,9K9,7 

10160 RE AD A$ 

1 0 1 80 PSET < F-2 , 30 ) , 4 
10190 COLOR 7:PRINt#l,AS 
10200 NEXT F 

10220 FOR F=25 TO 225 STEP 25 
10240 LINE (125, 45) -(F, 70) ,9 
10260 CIRCLE StEP(0,9) ,9,9 
10280 RE AD A$ 

10300 PSET (F-2, 75) ,4 
10310 COLOR 9;PRINt#l,A$ 

10320 NEXT F 

10340 FOR F=87.5 TO 167.5 STEP 25 
10360 LINE (125,92)-(F, 115) , 11 
10380 CIRCLE STEP (0,9) ,9, 11 ■ 

10400 READ A$ 

1 0420 PSET ( F-2 , 1 20 ) , 4 
10430 COLOR 1 1 :PRINt#l , A$ 

10440 NEXT F 

10450 DATA A,L,B,E,R,T,C,0,M,P,U 
10455 DATA T, I ; N', G', 1 , 9^ 8^ 6' 

10460 PSET (66, 148) : 4' 

10470 COLOR 14:PRINT#1 , presenteer 
t -" 

1 0480 PSET ( 25 , 1 65 ) , 4 

10485 COLOR l;PRINT#l, "NDDRD-HDLLAND 
PER HELIKOPTER" 

10490 PSET (93, 178) ,4 

10495 COLOR 14;PRINT#1, " (C) 1986" 

10498 FOR F=300TO0BTEF>-l:SOUND8,F/20 

:NEXT 

10500 FOR F=1 TO 1500; NEXT 

10999 ’ INSTRUCTIES 

11000 SCREEN 0 
11020 WIDTH 37 

11040 COLOR 1,5,5;CLS 

11050 LOCATE 4, i0;PRINT"Wi 1 je instr 
ucties? (J/N)" 

1 1 052 I I NKE Y$ ; I F I *= " " THEN 1 1 052 
11054 I F I $= " N " OR I " n " THEN63000ELBE I 
F I $= " J " OR I $= ” j " THEN 1 1 060ELSE 1 1 052 
11060 CLS;LQCATE2, 1 : PRINTCHR$ ( 175) +" 
NOORD-HOLLAND PER HELIKOPTER "+CHR$ 
(174) 


11080 LOCATE 4, 4: PRINT 
DIT SPEL IS HÉT 
EN 9AN PLAATSNAMEN 
INC IE NOORD-HOLLAND." 
11100 LOCATE 2, 8; PRINT 
helikopter naar de 
gde plaatsen voordat 


"HET DOEL VAN 
SPELEND LER 
IN DE PROV 

"Vlieg met je 
acht gevraa 
de tijd om 


is. Houd de tijdbalk dus goed 

i n het oog ! " 

11120 LOCATE 2, 13;PRINT"Nadat de ach 
tste plaats bereikt is, kom je 

op een hoger niveau. " 

11140 LOCATE 12, 17; PR INT "VEEL SUCCES 

f I I I* 


11160 LOCATE 4, 19;PRINT"Druk na het 
tekenen van de kaart; 

- spat i eb 

alk voor toetsen - vuurkn 

op voor joystick 1" 

11180 GOSUB 6000 

63000 SCREEN2 ,0,0; C0L0R7 , 7 , 7 : CLS 

63002 X$="" 

63003 RESTORE 63004 

63004 DATA 0,98,54,4,32,108,70,0,24, 

24.24.231.231.24.24.24.0. 70. 108.32.4 

,54,98,0 

63005 FOR F=1 TO 3; FOR G=1 TO 8 

63006 READ X 

63007 X$=X$+CHR$ (X) 

63008 NEXT G 

63009 SPRITE«(F)=X$ 

63010 X$="" 

63011 NEXT F 

63017 RESTORE 63031 

63018 COLOR 4 

63019 X1=125;Y1=10 

63020 READ X2,Y2 

6302 1 I F X 2=0 AND Y2=0THEN63025 

63022 LINE (Xl/1 .2+10, Y1)-(X2/1. 2+10, 
Y2) 

63023 SWAP X 1 , X 2 ; SWAP Y 1 , Y2 

63024 GOTO 63020 

63025 RS=RS+ 1 : I FRS= 1 THEN63026ELSE I FR 
S=2THEN63027ELBE I FRB=3THEN63030 

63026 X 1 =85 ; Y 1 =6 ; RESTORE63036 ; G0T063 
020 

63027 X 1 =68 ; Y 1 =65 ; REBTORE63037 ; G0T06 
3020 

63030 PAINT(118,40) , 4; PAINT (76, 25) ,4 
;PAINT(72,60) , 4: PAINT ( 153, 109) ,4: L IN 
E(50, l)-( 100,65) ,4, B 

63031 DATA 125,10,122,12,120,15,119, 

29, 114,51,108,95, 106, 110,97, 135; 104^ 
139, 107, 138, 110, 140, 104, 156,111:159: 
118, 156, 125, 160, 133, 155, 135, 156, 144, 
151 

63032 DATA 147, 151 , 150, 146, 153, 147, 1 
56, 144, 166, 144, 165, 147: 162: 148, 164: 1 
51 , 163, 156, 168, 159, 174, 158, 177, 162; 1 
75, 165, 181 , 167, 185: 160, 190, 146: 196, 1 
46, 196, 144, 190, 140; 176, 140' 

63033 DATA 171,135,162,135,153,128,1 
53, 125, 157, 126: 168, 117, 169, 114, 172; 1 
11,175, 110, 175, 108, 171 : 108: 170; 107; 1 
71 , 1 10, 168, 1 14, 164, 1 14, 164, 109: 166; 1 
09, 165, 105, 165, 104: 167: 103' 

63034 i)ATA 168, 100, 167; 98, 166, 98, 160 
,85, 160,75, 166,74, 174,78, 185,70, 186, 
64, 192,62, 191,54, 188,52, 185,53, 183,5 
0, 180,50, 175,54, 169,47, 170,33, 162, 17 
,183,0 

63035 DATA 179,0,160,16,158,16,151,1 
7,146,25, 140,26, 146,25, 149,26,148,29 
, 147,30, 145,28, 142,27, 140,26, 133,20, 

130.14.132.12.131.10.125.10.0. 0 
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6303é> DATA 85,6,71,30,67,42,68,47,73 
,47,71,45,76,45,73,43,76,40,78,44,86 
,36, 90^29; 91, 21, 92, 18,88, 13,89,7,85, 
6,0,0 ■ 

63037 DATA 68,65,87,65,82,62,78,55,8 
1,53,78,51,71,52; 69^53; 68, 65, 0,0 
63040 AP=0 ! CUR=0 s X A= 1 25 5 Y A=85 ! A A= 1 : B 

II II 

63060 CÜLDR , , 7 

63061 LINE(6;S7)-(64, 108) , 14,BF!PBET 
(8,88) , 1 4: COLORl: PRINT# 1, "NOORD- ";PS 
ET < 8 , 98 ) , 1 4 ï PR I NT# 1 , " HOLLAND " 

63062 LINE(182,6)-(232, 16) , 14, BF 

63063 PSET(184;S) ïCOLOR l!PRINT#l,"N 
IV; "i|USING"##"iNIV 

63065 LINE(182;22)-(232,42) , 14, BF 
63067 PSET < 184,24) , 14 

63069 COLOR 1 ; PR I NT# 1 , " SCORE : " ï PSET < 
184,34) , 14;PRINT#1 ,USiNG"######"{BC 

63070 LÏNE<6, 129)-(65, 149) , 14,BF;PSE 
T(8, 130) , 14:PRINT#1 , "HOOGSTE"’ 

63072 PSÈT<8, 140) , 14:C0L0R 6;PRINT#1 
, US I NG "####### "*,HS: COLOR 1 

63075 PSET ( 17, 172) ,7; PRINT# 1 , "DRUK S 
PATIEBALK/VUURKNOPI " 

63080 IF STRIG(0)=-1 THEN BB=0 ELSE 
IF STRIG(1)=-1 THEN BB=1 ELSE 63080 
63090 LINE(17, 172) -(255, 182) ,7,BF 
63100 RETURN 

63200 =■ MET DANK AAN RICH. ALTENBURG 
EN ZIJN PROGRAMMA TOPOOV / 


ZUID-HOLLAND 


1 'ALBERT VUIJK COEVORDEN 

2 KEYOFF 

4 GOSUB 10000 
6 GOTO 3000 

8 'VERANDERD VOOR ZUID-HOLLAND DOOR 

A. VUIJK COEVORDEN 

9 'HOOFDLOS 

10 SOUND 0,0; SOUND 1,4: SOUND 6,24 
20 SOUND 7, 8<B1 11 101 10; SOUND 8,16 

30 SOUND 12,3; SOUND 11,50; SOUND 13,1 
2 ■ ■ 

40 CO=STICK(BB) 

50 IF CO=0 THEN 150 

60 ON CO GOTO 70,80,90,100,110,120,1 
30,140 

70 YA=YA-3:G0T0 150 

80 XA=XA+3; YA=YA-3:G0T0 150 

90 XA=XA+3;G0T0 150 

100 XA=XA+3; YA=YA+3;G0T0 150 

110 YA=YA+3;G0T0 150 

120 XA=XA-3; YA=YA+3;G0T0 150 

130 XA=XA-3;G0T0 150 

140 XA=XA-3; YA=YA-3; GOTO 150 

150 IF TIME>=3000 THEN LINE ( 17, 178) - 

( 255 , 1 88 ) , 7 , BF : GOTO 5000 

160 ÏF TI ME >2500 THEN AA=9 

170 TI=TI ME *.08533 

180 LINE(TI, 189)-(TI, 191) ,AA 

200 PUT SPRÏTE 1, (XA-4, YA-4) , 15, 1 

220 PUT BPRITE 1 , ( XA-4, YA-4) , 15, 2 

240 PUT BPRITE 1 , ( XA-4’, YA-4) ’, IS; 3 

260 IF ABS (XA-XiXll AND ABS (YA-Yl 

Xll THEN CIRCLE ( X 1 , Y1 ) , 2, 7 ; PAINT ( X 

1,Y1) ,7; CIRCLE (X1,Y1) , 2^ 4: PAINT ( X 1 , 

Y1 ) ,4 

280 IF ABS (XA-X1X3 AND ABS (YA-Yl) 
<3 THEN GOSUB 1000 
300 GOTO 40 

998 ’ 

999 ' F'LAATS GEVONDEN 

1000 CUR=TIME 

1010 LINE (17, 178)-(255, IBS) ,7,BF 


1020 FOR G=0 TO 7; COLOR ,,G:NEXT 
1030 SC=SC+250 

1040 LINE (150, 15) -(248, 23) , 14, BF 
1050 PSET (152, 16) , 14 

1 060 COLOR 1 ; PR I Nt # 1 , " SCORE ; " ; US I NG " 

1070 AP=AP+1:IF AP<8 THEN 3000 

1998 ' 

1999 ' 8 PLAATSEN GEVONDEN 

2000 SOUND 7,?<B1 111 1000 

2010 PLAY"T170V1 102L4CLBDEL4FGL2F. ", 
"T170V12O5L2C.L4O4BAGG", "R" 

2020 FOR F=1 TO 100; FOR 6=1 TO 7 
2030 COLOR , , 6 : NE X T ; NE X T 
2040 BO=INT( (3000-CUR) /50) 

2045 SOUND 13, 8; SOUND 12, 2; SOUND 1,4 
; SOUND 7, ?<B1 11101 10; SOUND 8,16 
2050 FOR’ F=1 TO BO 
2060 SC=SC+100 

2070 LINE (150, 15) -(248, 23) , 14, BF 

2080 PSET (152, 16) , 14: COLOR 1 

2090 PR I NT# 1 , " SCORE ; " ; UB I NG " ###### " 

. SC 

2110 NEXT F 
2120 SOUND 8,0 

2130 LINE (0; 189) -(255, 191) ,7, BF 
2140 NIV=NIV+1;IF NIV>7 THEN 5000 
2150 GOSUB 63040 

2998 ' 

2999 ' PLAATS KIEZEN 

3000 I FN I V=0THENRESTORE4000 

3001 IFNIV=1THENRESTORE4002 

3002 I FN I V=2THENRESTORE40 1 0 

3003 I FN I V=3THENRESTORE4020 

3004 IFNIV=4THENREBTORE4030 

3005 IFNIV=5THENRESTORE4032 

3006 IFNIV=6THENRESTORE4040 

3007 IFNIV=7THENRESTORE4050 
3020 PNR=INT(RND(-TIME) *8) 

3040 U^=BTR$(PNR) 

3060 FOR F=0 TO PNR 
3080 RE AD A$,X1,Y1 
3100 NEXT F 

3120 IF INSTR(B$,U$X>0THEN3000 
3125 B^=B$+U^ 

3140 X1=X 1/1. 3+20 

3180 PSET (17, 178) ,7: COLOR 1 

3190 PRINT#1, "VLIEG NAAR;"; Af 

3200 TIME=CUR 

3220 GOTO 10 

3998 ' 

3999 ' DATAREGELS MET PLAATSEN 

4000 DATA DEN HAAG, 100, 65, ROTTERDAM, 
125, 105, LEIDEN, 129, 46, GOUDA, 162, 80, D 
ORDRECHT ,156,131, WASSENAAR , 1 1 0 , 50 , DE 
LFT, 105,85, SCHIEDAM, 1 12, 105 

4001 ' ’ ’ 

4002 DATA VLAARDINGEN, 104, 107,KATWIJ 
K A/ZEE, 1 14, 36, MAASSLUIS, 91 , 104, ALPH 
EN , 1 53 , 52 , V i ANÊN , 220 , 85 , SCHEVEN I NGEN 
,95, 60, SCHOONHOVEN, 181 , 95, CAPPELLE A 
/D ÏJSSEL, 137, 102 

4010 DATA NOORDWIJK A/ZEE, 1 17, 26, WAD 
DINXVEEN, 151 ,74, RIDDERKERK, 145, 1 17, S 
LIEDRECHt, 171 , 126, GORINCHEM, 202, 124, 
ZOETERMEER, 124, 74, MIDDELHARNIS, 78, 14 
6,BRIELLE,74, 107 

4011 ' 

4020 DATA LEERDAM, 221, 108, ZWIJNDRECH 
T , 1 49 , 1 39 , GOEREE ,48,131, OÜD-BE I ERL AN 
D, 116, 126,HILLEGÖM, 138, Ï2,H0EK VAN H 
OLL AND ,72,88, BOSKOOP , 1 50 , 65 , WOERDEN , 
190,61 

4021 ' 
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4030 DATA ALBL ASBERD AM, 154, 11 B,SOMME 
LSD I J K , 73 , 1 45 , BODEGRAVEN , 1 è7 , 62 , OOST 
V00RNE,66, 106,LISBE, 1 34, 21 , MONSTER, 8 
0, 80, NAALDWIJK, 86, 88, HARD INX VELD, 188 
,126 

4031 ’ 

4032 DATA sGRAVENDEEL, 143, 139, ARKEL , 
203, 119,00LTGENSPLAAT, 103^ 165,RIJSWÏ 
JK, 101 , 73, NIEUWKOOP, 170,45, ZUÏD-BEIE 
RL AND, 110, 147,ABPERÉN, 122, i 12, KRIMPE 
N A/D IJSSEL, 142, 107 ’ 

4040 DATA SASBENHEIM, 131 ,29,LEIDERD0 
RP ,134, 45 , OUDE-TONGE ,84,162, OUDEW ATE 
R , 1 84 , 77 , N I EUWPOORT ,186,1 00 , BARENDRE 
CHT, 130, 120, ROCK AN JÉ, 63, 115,R0EL0FSA 
RENDSVEEN, 147,35 

4041 ' 


4050 DATA NUMANSDORP, 120, 152,STRIJEN 
,139,149, BERGAMBACHT i 1 7 1 , 1 00 , HELLE VO 
ETSLUIS,72, 127, VOORBURG, 106,69, ZOETE 
RWOUDE , 1 30 , 56 , sGRAVENZ ANDE ,77,85, H AA 
STRECHT, 171,84 

4998 

4999 =■ EINDE SPEL 

5000 POR F=1 TO 3! PUT BPRITE 1,(200, 
200) ,7,F:NEXT 

5005 IF NIV>7 GOTO 5020 
5010 LINE (7B,94)-(152, 104) , 14. 


5015 PBET(80,96) 

II»» 


BF 

15:PRlNT#l "TÏ JD OP 


5020 SOUND 1,0: SOUND 9,0: SOUND 7,?.B1 
1111110 

5025 FOR G=1 TO 7: SOUND 8,15-G:F0R F 
=170 TO 255: SOUND 0,F;COLDR ,,G;NEXT 
:NEXT 

5030 SOUND 8,0 

5035 LINE (78, 94) -(152, 104) ,4, BF 

5040 LINE(0, 189)-(255, 191) ,7,BF 

5045 IF SOHS THEN HS=BC 

5050 SC=0:NIV=0 

5100 GOSUB 63040 

5110 XA=125;YA=85 

5120 GOTO 6 

5998 •’ 

5999 ’ INTRODUCTIE-TUNE 

6000 SOUND 7,S<B11111000 
6005 FOR F=1T0 2 

60 1 0 PL A Y " T 1 70V 1 3 " , T 1 70 V 1 2 " , T 1 70 V 
10" 

6020 C^= "05L4CEFEDC04B05CL2DDL4CEFE 
DCC04B05L2CC" 

6040 D$= "04L4EGAGB. L8ABG05L4C04L2BB 
05L4C04GAGBAAGL2EE " 

6060 E$= "04L4CCFCGCGAL2GGL4CCFCGAFG 
L2CC " 

6Ï00 PLAY C$,D^,E$ 

6120 C$= "05L4DC04B05CDEL2DL4DC04B05 
CDEL2DL4CEFEDCC04B05L2CC " 

6140 D^= "04L4B05C04G. LBAL4B05C04L2B 
L4B05C04G . L8 AL4B05C04L2B05L4C04GAGBA 
AGL2EE" 

6160 E$= "04L4GAGCGCL2GL4GCGCGCL2GL4 
CCFCGAFGL2CC” 

6200 PLAY C$,D$,E$ 

6300 NEXT F ■ 

6500 RETURN 

9998 " 

9999 =• TITELPAGINA 

10000 SCREEN 2,0,0 
10040 COLDR 15;4i4:CLS 

10060 OPEN "GRP: FOR OUTPUT AB#1 
10080 REBTORE 10450 

1 0090 SOUND 1,9; SOUND 13,8; SOUND 1 2 , 3 ■ s 

0UND7, ?/Bl 1 1 101 10; SOUNDS, 16 

10100 FOR F=62.5 TO 187^5 STEP 25 

10120 LINE (125,5)~(F,25) ,7 

10140 CIRCLE BTÊP(0,9) ,9,7 

10160 RE AD A$ 


10180 PSET(F-2,30) ,4 
10190 COLOR 7;PRINt#l,A^ 

10200 NEXT F 

10220 FOR F=25 TO 225 STEP 25 
10240 LINE (125, 45) -(F, 70) ,9 
10260 CIRCLE StEP(0,9) ,9,9 
10280 RE AD A^ 

1 0300 PSET ( F-2 , 75 ) , 4 
10310 COLOR 9;PRINt#l,A^ 

10320 NEXT F 

10340 FOR F=87.5 TO 167.5 STEP 25 
10360 LINE (125,92)-(F, 115) , 11 
10380 CIRCLE STEP (0,9) ,9, 11' 

10400 RE AD A$ 

10420 PSET (F-2, 120) ,4 
10430 COLOR 11:PRINT#1,A^ 

10440 NEXT F 

10450 DATA A,L,B,E,R,T,C,0,M,P,U 
10455 DATA T, I , N, G, 1 , 9, 8, 6' ' 

10460 PSET (66, 148) ,4' 

10470 COLOR 14; PRINT#1 , presenteer 
t -" ■ 


1 0480 PSET ( 25 , 1 65 ) , 4 
1 0485 COLOR 1 ; PR I NT# 1 
PER HELICOPTER" 


"ZUID-HOLLAND 


10490 PSET (93, 178) , 4 
1 0495 COLOR 1 4 ; PR I NT# 1 , " ( C ) 1 986 " 
10498 FOR F=300TO0STEP-l;SOUND8,F/20 
:NEXT 

10500 FOR F=1 TO 1500; NEXT 

10999 =* INSTRUCTIES 

11000 SCREEN 0 
11020 WIDTH 37 

11040 COLOR 1,5,5;CLB 

11042 L0CATE4, 10;PRINT"WIL JE INSTRU 

KTIES7 (J/N)"’ 


11044 I S= I NKE Y$ ; I F I $= " " THEN 11044 
11046 I F I " J " OR I $= " j " THEN 1 1 060ELBE I 
F I $= " N " OR I $= " n " THENGOTO63000ELSE 1 1 04 
4 


11060 CLS; PRINT" ZUID-HOLLAND PER H 
ELICOPTER" 

11080 LOC ATE 3, 4; PRINT "HET DOEL VAN 
DIT SPEL IS HÉT SPELENDERWI 

JS LEREN VAN PLAATS- NAMEN IN D 

E PROVINCIE ZUID-HOLLAND" 

11100 LOCATE 2, 8; PRINT "Vlieg met je 
helicopter naar de acht gevraa 

gde plaatsen voordat de tijd om 

is. Houd de tijdbalk dus goed 

i n het oog ! " 

11120 LOCATE 2, 13; PRINT"Nadat de ach 
tste plaats bereikt is, kom je 

op een hoger niveau." 

11140 LOCATE 12, 17; PR INT "VEEL SUCCES 

III»» 


11160 LOCATE 4, 19;PRINT"Druk na het 
tekenen van de kaart; 

- spat i eb 

alk voor toetsen - vuurkn 

op voor joystick 1" 

11180 GOSUB 6000 

63000 SCREEN2 ,0,0; CDLDR7 , 7 , 7 : CLS 

63002 X$="" 

63003 RESTORE 63004 

63004 DATA 0,98,54,4,32,108,70,0,24, 

24,24,231,231,24,24,24,0,70; 108,32,4 
,54,98,0 

63005 FOR F=1 TO 3; FOR G=1 TO 8 

63006 READ X 

63007 X$=X«+CHR^(X) 

63008 NEXT G 

63009 SPRITE$(F)=X$ 

63010 X$="" 

63011 NEXT F 

63017 RESTORE 63026 

63018 COLOR 4 

63019 X1=125:Y1=5 
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63020 RE AD X2,Y2 

63021 LINE<X1/1 .3+20, Y1 )-(X2/l. 3+20, 

63022 SWAP X1,X2!SWAP Y1,Y2 

63023 DN ERROR GOTO 63025 

63024 GOTO 63020 

63025 PA I NT < 1 30 , 1 00 ) , 4 

^ J 5 43,68,87,70,90,65,91, 
6^,102,55,113,61, 122,55, 130,51 , 123,3 
0, 1^.0, 30, 134,33, 138,35, 138,35, 136,37 

63027 DATA 45,134,54,135,59,140,62,1 

164,83, 16 

164, Bvj, 167,94, 170, 100, 170, 109,1 
65, 92, 152 

63028 DATA 84,142,68,137,62,130,58,1 
O0, 64, 124, 65, 127,70, 127, 70, 130, 89, 13 
8,91,145, 124, 157, 136, 158, 148, 150, 160 
,150,166,144 

63029 DATA171 , 134, 183, 133, 193, 125,20 
5, 127,205, 120,215, 1 20^ 22S; 1 15, 225; 10 

63030 DATA 196,93,193,97,185,96,184, 

•; , 82 , i 85 , 80 , i 87 , 7 

7, 18vj,74, 187,69, 186,68, 193,61, 195,62 
1 97 59 ^ ^ 

63031 DATA 195,56,184,60,183,58,180, 

59, 174,53, 176,51,176,48, 179,47, 183,5 
® !. 1 84 , 43 , 1 85 , 40 , i 84 , 39 , i 80 , 39 

63032 DATA 172,33,170,29,163,30,160, 

25, 155,27, 153,26, 147,30, 140,30, 136,2 

8^137,25, 138, 17, 142, 13, 144,5, 140,5, 1 

33 9 7 1| 1 25 n 5 • ■ • . ? 

63040 AP=0; CUR=0; XA=125ï YA=85s AA=1 : B 
** ** 

63060 CDLOR , , 7 

6306 1 L I NE ( 6 , 0 ) - ( 1 04 , 1 0 ) , 1 4 , BF : PSET < 
8, 1 ) , 14: COLORl ; PRINT#1 , "ZUID-HOLLAND 

63062 LINE ( 150,5)- (248, 13) , 14, BF 

63063 PSET ( 152, 6) ; COLOR 1 : PRINT#1 , ‘*N 
IVEAU: '’;USING"#####’';NIV 

63065 LINE (150, 15) - (248, 23) , 14, BF 
63067 PSET (152, 16) , 14 

63069 CDLOR 1 : PRINt#l , "SCORE: USING 

63070 LINE (15, 49) -(73, 69) , 14, BF; PSET 
(17,50) , 14; PRINT#1 , "HDOGStE" ' 

63072 PSET ( 17, 60) , 14; COLOR 6;PRINT#1 
, US I NG "####### "-HS; COLOR 1 
63075 PSET(17, 178) ,7;PRINT#1, "DRUK S 
PATIEBALK/VUURKNOP; " 

63080 IF STRIG(0)=-1 THEN BB=0 ELSE 
IF STRIG(1)=-1 THEN BB=1 ELSE 63080 
63090 LINE (17, 178) -(255, 188) ,7, BF 
63100 RETURN 

63200 ’MET DANK AAN RICHARD ALTENBUR 
8 EN ZIJN PROGRAMMA TOPOOV 


UTRECHT 


V' 


1 ’ALBERT VU IJK COEVORDEN 1986 

2 KEYOFF 

4 GOSUB 10000 
6 GOTO 3000 
B 

9 'HOOFDLOS 

10 SOUND 0,0; SOUND 1,4: SOUND 6,24 
SOUND 7, ?<B1 11 101 10; SOUND 8,16 
SOUND 12, 3: SOUND 11, 50; SOUND i; 


20 

30 

2 

40 

50 

60 


1 


150 

150 

150 


30, 140 


CO=STICK(BB) 

IF CD=0 THEN 150 

ON CO GOTO 70,80,90,100,110,120,1 


70 YA=YA-3;G0T0 150 
80 XA=XA+3; YA=YA-3; GOTO 
90 XA=XA+3;G0T0 150 
100 XA=XA+3; YA=YA+3: GOTO 
110 YA=YA+3;G0T0 150 
120 XA=XA-3; YA=YA+3: GOTO 
130 XA=XA-3:G0T0 150 
140 XA=XA-3; YA=YA-3; GOTO 150 

TI ME >=3000 THEN LINE(17,172)- 
(255, 182) ,7, BF; GOTO 5000 
160 IF TI ME >2500 THEN AA=9 
170 TI=TI ME *.08533 
180 LINE(TI, 189)-(TI, 191) ,AA 
200 PUT SPRITE 1, (XA-4,YA-4),15,1 
220 PUT SPRITE 1 , (XA-4, YA-4) , 15; 2 
240 PUT SPRITE 1 , (XA-4, YA-4) , is! 3 
260 IF ABS (XA-XiXll AND ABS (YA-Yl 
)<11 THEN CIRCLE ( X 1 , Y1 ) , 2, 7; PAINT ( X 
1,Y1) ,7:CIRCLE ( X 1 , Yl ) , 2, 4; PAINT ( X 1 , 
Y1 ) , 4 ’ 

280 IF ABS (XA-X1X3 AND ABS (YA-Yl) 
<3 THEN GOSUB 1000 
300 GOTO 40 

998 •’ 

999 ’ PLAATS GEVONDEN 

1000 CUR=TIME 

1010 LINE (17, 172)-(255, 182) ,7,BF 
1020 FOR G=0 TO 7; COLOR ,,G;NEXT 
1030 SC=SC+250 

1040 LINE (205, 31) -(255, 41) , 14,BF 
1050 PSET (208, 32) , 14 

1060 COLOR 1 : PR I NT# 1, USING "###### ";S 

1070 AP=AP+1;IF AP<8 THEN 3000 

1998 ’ 

1999 ' 8 PLAATSEN GEVONDEN 

2000 SOUND 7,8<B1 11 11000 

2010 PLAY"T170V1 102L4CL8DEL4FGL2F " 
"T170V12O5L2C.L4O4BAGG", "R" ' ’ 

2020 FOR F=1 TO 100; FOR G=1 TO 7 
2030 COLOR, ,G;NEXT;NEXT 
2040 BD=INt ( (3000-CUR) /50) 

2045 SOUND 13, 8: SOUND 12, 2: SOUND 1,4 
SOUND- 7, 8<B1 1 1 101 10: SOUND 8,16 
2050 FOR F=1 TO BO 
2060 SC=SC+100 

2070 LINE (205, 31) -(255, 41 ) , 14, BF 
2080 PSET ( 208 , 32 ) , 1 4 ; COLOR ’ 1 ’ 

2090 PRINT#1 ,ÜSING "###### "-SC 
2110 NEXT F 
2120 SOUND 8,0 

2130 LINE (0, 189)-(255, 191) ,7,BF 
2140 NIV=NIV+1;IF NIV>5 THEN 5000 
2150 GOSUB 63040 

2998 ' 

2999 ’ PLAATS KIEZEN 

3000 I FN I V=0THENRESTORE4000 
3002 IFNIV=1THENRESTORE4010 
3004 IFNIV=2THENRESTORE'»020 
3006 IFNIV=3THENRESTORE4030 
3008 IFNIV=4THENRESTORE4040 
3010 IFNIV=5THENRESTORE4050 
3020 PNR= I NT ( RND ( -T I ME ) *8 ) 

3040 B1$=STR^(PNR) 

3060 FOR F=0 TO PNR 
3080 RE AD A^,X1,Y1 
3100 NEXT F 

3120 IF INSTR(B$,B1$X>0THEN3000 
3140 B$=B$+B1$ 

3160 Yl=Yl*1.3-30 

3180 PSET (17, 172) ,7; COLOR 1 

3190 PRINT#1, "VLIÈG NAAR;";A$ 

3200 TIME=CUR 
3220 GOTO 10 

3998 ' 

3999 •’ DATAREGELS MET PLAATSEN 
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4000 DATA UTRECHT, 117,99, ZEIST, 144,9 
9,BAARN, 151 ,55, AMERSFOORT, 172, 77, WIJ 
K BIJ DUURSTEDE, 165, 137, VÊENENDAAL, 2 
10, 120, AMERONGEN ,190,130, BREUKELEN i 9 
2,71 . . » 

4001 ’ 

4010 DATA ABCOUDE, 85, 37, MONTFOORT, 82 
, 1 15, VREESWIJK, 112, 126, NIEUWEGEIN, 1 1 
8, 112, DRIEBERGEN, 153, 1 13, RHENEN, 213, 
142, DE BILT, 131 , 93, SÓESTÈRBERG, 152,8 
6 


4011 =• 


4020 DATA MAARSSEN, 101,81, IJSSELSTEI 
N, 101 , 122, DOORN, 166, 1 19, SPAKENBURG, 1 
70, 43, LAGE VUURSCHE, 139, 6, LOENEN, 96, 
58 , M I J DRECHT ,62,58, H ARMÈLÈN ,86,100 

4021 ■■ 

4030 DATA LOPIK, 82, 138, JAARSVELD, 87, 
140, NIEUWERSLUIS, 93,62, OUD-LOOSDRECH 
T, 107,60,HOLLANDSCHÈ RAD ING, 128,71,B 
ILTHOVEN, 135,84,RIJSENBURG, 149, 109; J 
UTPHAAS, 111, 116 

4031 •' 


4040 DATA AUSTERLITZ, 156, 101, VLEUTEN 
, 96,93 , W I LN I S , 70 , 66 , WOUDENBERG ,174,9 
8, SCHALKWIJK, 132, 13l , LEUSDEN-cI 176,8 
5 , BUNSCHOTEN ,169,48, SOEST ,158,70 

4041 •’ 

4050 DATA SOESTD IJK, 152, 63, ZEGVELD, 6 
0,92, VECHTEN , 1 30 , 1 06 , V I NKE VEEN ,79,57 
, DEN DOLDER , 1 44 , 82 , L ï NSCHOTEN ,73,108 
,EEMNES, 146,44,MAARN, 167, 106 

4999 EINDE SPEL 

5000 FOR F=1 TO 3; PUT SPRITE 1,(200, 
200) ,7,F;NEXT 

5005 IF NIV>5 GOTO 5020 


5010 LINE (94, 94) -(168, 104) , 14, BF 
5015 PSET(96,96) , 15;PRiNT#l , “TiJD OP 

M» 


5020 SOUND 1,0; SOUND 9,0; SOUND 7,?/Bl 
1111110 

5025 FOR G=1 TO 7; SOUND 8,15-G;F0R F 
=170 TO 255; SOUND 0,F;COLDR ,,G;NEXT 
;NEXT 

5030 SOUND 8,0 

5035 LINE (94,94)-(168, 104) ,4,BF 

5040 LINE(0, 189) -(255, 191) ,7,BF 

5045 IF SOHS THEN HS=SC 

5050 SC=0;NIV=0 

5100 GOSUB 63040 

5110 XA=125;YA=85 

5120 GOTO 6 

5998 •' 

5999 =■ INTRODUCTIE-TUNE 

6000 S0UND7 , ?<B 1 1 1 1 1 000 

600 1 A 1 $= " V8T 1 0BO4L4 A05DL8CD04L2B-L4 
A05DGEFLBEDC04B-L4A05DL8CDL204B-L4AG 
E » L.OF- L.2F • ” 

60 1 0 A2$= " V6T 1 08O4L2FFL4EL2FL4B-GL2A 
L4GL2FFL4EFDC03B-L2A. ” 

6020 A3$= " V6T 1 0BD3L4FB- AGCFB-G04C03F 
A04C03FB- AGCF02B-03C02C ” 

6030 A4$="02L4FA03C" 

6040 A5$="02L2F. " 

6050 PLAY Al*, A2$, A3$+A4$ 

6060 PLAY Al*, A2*; A3*+A5$ 

6070 B 1 *= ” 05L2AL4GFB- AL2GL4FEAGFL8GF 
EDL2C#L4DEL8EFGAGFEDC04B- " 

6080 B2*= '■ 05R4L4CC#DFEL2DL4C04B- A05C 
#D04AGL2A. L4B-A05C#L2DR4" 

6090 B3*= '■ 03L4F02FED03DC02L2B-L4AGFE 
DC02B-A03EFGA02AL203DL4E ” 

6100 PLAY B1*,B2*,B3* 

6110 PLAY Al*; A2*; A3*+A5* 

6500 RETURN 

9998 •’ 

9999 =• TITELPAGINA 


10000 SCREEN 2,0,0 
10040 COLOR 15,4,4;CLS 
10060 OPEN'’GRP;“ FOR OUTPUT AS#1 
10080 RESTORE 10450 

1 0090 SOUND 1,9; SOUND 13,8: SOUND 1 2 , 3 : S 

OUND7,?<B11110110;SOUNDS, 16 

10100 FOR F=62.5 TO 187 '.5 STEP 25 

10120 LINE (125,5)-(F,25) ,7 

10140 CIRCLE STEP(0,9) ,9,7 

10160 READ A* 

10180 PSET(F-2,30) ,4 
10190 COLOR 7;PRINt#l,A* 

10200 NEXT F 

10220 FOR F=25 TO 225 STEP 25 
10240 LINE (125, 45) -(F, 70) ,9 
10260 CIRCLE StEP(0,9) ,9,9 
10280 READ A* 

1 0300 PSET ( F-2 , 75 ) , 4 
10310 COLOR 9:PRINT#1,A* 

10320 NEXT F 

10340 FOR F=87.5 TO 167.5 STEP 25 
10360 LINE (125,92)-(F, 115) , 11 
10380 CIRCLE STÈP(0,9) ,9, 11 
10400 READ A* 

10420 PSET (F-2, 120) ,4 
10430 COLOR 11;PRINT#1,A* 

10440 NEXT F 

10450 DATA A,L,B,E,R,T,C,0,M,P,U 
10455 DATA T,I,n;G,1,9,8,6' 

10460 PSET (66, 148), 4' 

10470 COLOR 14; PRINT#1 , presenteer 
t -" 

10480 PSET (25, 165) ,4 

10485 COLOR l;PRINt#l," UTRECHT PER 
HELICOPTER” 

10490 PSET (93, 178) ,4 

10495 COLOR 14;PRINT#1 , " (C) 1986” 

10498 FOR F=300TO0STEP-1; SOUNDS, F/20 

;NEXT 

10500 FOR F=1 TO 1500; NEXT 

10999 =• INSTRUCTIES 

11000 SCREEN0 


je instr 


11020 WIDTH 37 
11040 COLOR 1,5,5;CLS 
11050 LOCATE 4, 10; PRINT" Wil 
ucties? (J/N)"' 

1 1 052 I *= I NKEY* ; I F I *= " " THEN 1 1 052 
1 1 054 I F I *= " N ” OR I *= " n ” THEN63000ELSE I 
F I *= " J " OR I *= " j " THEN 1 1 060ELSE 1 1 052 
1 1 060 CLS : L0CATE4 , 1 ; PR I NTCHR* (175)+" 
UTRECHT PER HELIKOPTER ”+CHR*(174) 
11080 LOCATE 4, 4; PRINT "HET DOEL VAN 
DIT SPEL IS HÈT 
JS LEREN VAN PLAATS- 
E PROVINCIE UTRECHT." 

11100 LOCATE 2, 8; PRINT 
helikopter naar de 
gde plaatsen voordat 
is. Houd de tijdbalk 
i n het oog ! " 

11120 LOCATE 2, 13:PRINT"Nadat de ach 
tste plaats bereikt is, kom je 

op een hoger niveau." 

11140 LOCATE 1 2 , 1 7 ; PR I NT " VEEL SUCCES 


SPELENDERWI 
NAMEN IN D 

"Vlieg met je 
acht gevraa 
de tijd om 
dus goed 


11160 LOCATE 4, 19;PRINT"Druk na het 
tekenen van de kaart; 

- spat i eb 

alk voor toetsen — vuurkn 

op voor joystick 1" 

11180 GOSUB 6000 

63000 SCREEN2 ,0,0; C0L0R7 , 7 , 7 : CLS 

63002 X*="" ■ ■ 

63003 RESTORE 63004 

63004 DATA 0,98,54,4,32,108,70,0,24, 

24,24,231,231,24,24,24,0,70, 108,32,4 
,54,98,0 ■ 

63005 FOR F=1 TO 3; FOR G=1 TO 8 
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63006 READ X 

63007 X*=X*+CHR$(X) 

63006 NEXT G 

63007 SPRITE$<F)=X$ 

63010 X*=’”’ 

63011 NEXT F 

63017 RESTORE 63026 

63018 COLOR 4 

63019 X1=147;Y1=33 

63020 READ X2,Y2 

63021 IFX2=0ANDY2=0THEN63025 

63022 LINE<X1, Yl* 1.3-30) -<X2,Y2» 1.3- 
30) 

63023 SWAP XI, X2; SWAP Y1,Y2 

63024 GOTO 63020 

63025 PA I NT < 1 00 , 1 00 ) , 4 

63026 DATA 147,33,132,68,118,67,122, 

63. 1 14.55. 108.55. 100.53. 102.49. 100.4 
2,96,37, 102,32, 101,31,99,32,97,30,92 
,34 

63027 DATA 91,29,86,29,81,35,76,34,7 
4, 37, 75, 38, 72, 43, 65, 43, 50, 53i 44i 52i 4 
2,55,45,62,50,60,58,69,64,70' 

63028 DATA 64,73,60,74,61,77,64,84,6 
2, 86, 60, 85, 60, 83, 55, 82, 50, 83; 50;. 87', 4 
8, 88,56,96, 60, 97,63, 100,76,93 

63029 DATA' 80,97,78, 100,76,99,70, 105 
,68, 104,65, 108,67, 112,64,116,66, 122, 
63, 125,66, 127,55, 132,63, 145,62, 146,6 
3,151 

63030 DATA 75,151,81,143,87,143,92,1 

38. 100. 140. 100. 138. 107. 131.109. 132. 1 
14, 129, 121 , 131 , 125, 14©; 130; 140; 133, 1 
42,137,143 

63031 DATA 142,136,149,141,157,142,1 
61 , 145, 170, 138; 177, 141 ; 181 , 140, 185; 1 

34. 192. 135.202. 140.205. 139.210. 145.2 
15,145,225,150,228,145 

63032 DATA 223,140,222,132,214,122,2 
16,122,216,116,211, 112,212,98,210,97 
,210,93,208,91; 202 ; 103 ; 199, 102, 191, 1 
02,191,99,196,95 

63033 DATA 197,90,199,90,200,87,197, 

79. 194.73. 194.70. 185.74. 185.61.175.5 
4, 176,44, 168,37,158,37, 156,34, 147,33 
, 0,0 

63040 AP=0:CUR=0! XA=125! YA=85: AA=1 s B 

II II 

63060 COLOR , , 7 

63061 LINE(6,3)-(65, 13) , 14,BF:PSET(8 
,4) , 14:PRINT#1 , "UTRÈCHT" 

63062 LINE(205,3)-(255, 13) , 14, BF 

63063 PSET<208,4) :COLOR 1 : PRINT#1 , "N 
IV: ";USING"##*';NIV 

63065 LINE<205,21)-<255,41) , 14, BF 
63067 PSET<208,22) , 14 

63069 COLOR 1 : PR INT#1 , "SCORE: PSET < 
208,32) , 14:PRINT#1 ,USiNG"######":SC 

63070 LÏNE<205,45)-(255,65) , 14,BF:PS 
ET <208, 46) , 14:PRINT#1 , "HOOGST"' 

63072 PSET(208,55) , 14;C0L0R 6: PRINT# 
1, US I NG "###### ":HS: COLOR 1 

63075 PSET(17, 172) ,7:PRINT#1, "DRUK S 
PATIEBALK/VUURKNOP. " 

63080 IF STRIG(0)=-1 THEN BB=0 ELBE 
IF STRIG(1)=-1 THEN BB=1 ELSE 63080 
63090 LINE(17, 172) -(255, 182) ,7,BF 
63100 RETURN 

63200 =■ MET DANK AAN RICH. ALTENBURG 
EN ZIJN PROGRAMMA TOPOOV 


ABONNEMENTEN 

EEN ABONNEMENT IS VOORDELIGER EN JE 
MIST GEEN NUMMERS! 

Een abonnement op de MSX-Gids kost 
FL.40,= per 6 nummers en is te ver- 
krijgen door overmaking van dit be- 
drag op Giro; 5036011 t.n.v. 
J.Herps, Postbus 10252, Amsterdam. 

Voor Belgie: Bfr. 750 op bankreke- 
ningnummer 235-0430464-87 bij de 
Generale Bank te Hasselt, t.n.v. 
J.Herps te Amsterdam. 

Abonnementen worden aangegaan voor 
een periode van 12 maanden en de 
abonnees krijgen, voor het ver- 
strijken van het abonnement, een 
bericht van de uitgeefster en 
kunnen dan hun abonnement verlen- 
gen. Indien een verlenging niet 
gewenst is hoeft verder niet te 
worden betaald; opzeggen van een 
abonnement is niet nodig, maar 
wordt wel op prijs gesteld. 

Girobetaalkaarten of Eurocheques 
(vergeet niet het nummer op de 
achterzijde) voor een abonnement 
kunnen gestuurd worden naar: 
Uitgeverij Herps , Postbus 10252, 
1001 EG Amsterdam. 

Telefonische inlichtingen over 
abonnementen en losse nummers: 
020-327464. 


MSX-GIDS 

BEWAARBANDEN 

Voor de MSX Gids zijn nu ook opbergmappen 
verkrijgbaar. Deze bewaarbanden zijn 
-uiteraard- geel en hebben het MSX-Gids 
logo (in zwarte opdruk) op de voorzijde en 
op de rug. In deze mappen kunnen minstens 
6 exemplaren van de Gids opgeborgen 
worden. De bladen worden in de map 
vastgezet met speciale (bijgeleverde) 
metalen klemmen. Hierbij wordt het blad 
niet beschadigd! De prijs van deze 
bewaarband is 19,95 per stuk. Deze prijs 
is inclusief BTW en verzendkosten. 

De banden zijn te bestellen door 
overmaking van 19,95 per stuk op Giro: 
5036011 t.n.v. J.Herps te Amsterdam onder 
vermelding van 'bewaarband'. 

Voor Belgie is dit Bfr. 365 op bankreke- 
ning 235-0A30A64-87 bij de Generale Bank 
te Hasselt t.n.v. J.Herps, Postbus 10252, 
1001 EG Amsterdam onder vermelding van 
' bewaarband ' . 
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PHILIPS VG-8235 
WEL OF GEEN 128K ? 

We schreven in een eerder nummer al dat er 
verschillende versies zijn van de VG-8235 
van Philips. Op sommige machines is de 
extra 64K Ram niet te vinden en in eerste 
instantie hadden we het vermoeden dat deze 
extra Ram niet in de machine zat. De 
VG-8235 heeft echter wel degelijk 128K 
Ram, maar door een fout op de print kan 
bij een groot aantal machines de tweede 
set van 64K niet ingeschakeld worden. Een 
bijlage bij de service-documentatie van 
deze machine geeft de oplossing om alsnog 
de tweede 64K Ram te kunnen gebruiken: 

Er moet een condensator van InF worden ge- 
soldeerd tussen pen 7 en 8 van IC nr. Ü23. 
(Dit is een 74LS670) . Doe dit alleen zelf 
als je ervaring hebt met dit soort werk en 
gebruik een goede (geaarde) soldeerbout ( 
dus niet met mini strijkijzers op de print 
gaan rommelen). Kun je dit niet zelf, laat 
het dan over aan de vakman en stuur de 
computer terug naar de leverancier voor 
reparatie. Ik neem aan, dat Philips deze 
wijziging ook aanbrengt als de garantie 
vervallen is daar het hier een fabrica- 
gefout betreft. 

Of er sprake is van een 'defecte' machine 
kan eenvoudig worden gecontroleerd: 

Wanneer de VG-8235 bij het opstarten meldt 
dat zowel 128K Ram als 128K videoram 
aanwezig is dan hoef je niet verder te 
zoeken; bij deze versie is inderdaad 2x 
128K Ram aanwezig. Meldt de machine alleen 
128K videoram dan kan je de tekstverwerker 
van het 'Home office' programma opstarten. 
Geeft deze tekstverwerker meer dan 8CK 
ruimte voor de tekst dan is de tweede 64K 
in bedrijf. Geeft het programma echter ca. 
15K aan (zoals o.a. bij ons het geval was) 
dan is de tweede 64K niet bereikbaar en 
moet de condensator er aan te pas komen. 
Hebben we 128K Ram dan kan deze Ram 
alsvolgt gebruikt worden om 3 Rambanken 
van 32K te verkrijgen: 

10 OUT 252, 3: OUT 253,2:CALL MEMINI 
20 CALL MEMINK0) 

30 OUT 252,5:OUT 253,4:CALL MEMINI 
40 CALL MEM1NK0) 

50 OUT 252,7:OUT 253, 6: CALL MEMINI 

Hierna kunnen de drie banken met de vol- 
gende opdrachten worden opgeroepen: 

OUT 252,3:OUT 253,2 
OUT 252,5:OUT 253,4 
OUT 252,7:OUT 253,6 

Houdt er rekening mee, dat het inlezen en 
wegschrijven van en naar deze banken 
alleen gebeurt met ASCII-files. BSAVE, 
BLOAD e.d. kunnen niet worden gebruikt en 
het lezen en schrijven gaat erg traag. 
Voor erg grote bestanden of programma's 
kan beter de drive worden gebruikt. Wel is 
het verstandig om deze 'Raradisks' te 
gebruiken wanneer b.v. een bestand erg 


vaak geraadpleegd moet worden. Het gebruik 
van deze Rambanken spaart de diskdrive. 

Ook het wegschrijven en inlezen van pro- 
gramma's naar en van deze rambanken 
(vanuit een programma!) gebeurt iets an- 
ders dan bij een diskdrive. Bij de 
diskdrive gaat, na een dergelijke bewer- 
king, het programma verder; bij de Ramdisk 
niet. Hier verschijnt de cursor weer op 
het scherm. Inlezen en wegschrijven van 
programma' s -waarna het programma weer 
moet worden voortgezet- kan wel, maar moet 
dan heel omslachtig gebeuren via een 
hulprogramma mot textfiles. 


HOME OFFICE 

Nu we toch met de tekstverwerker van dit 
pakket bezig waren kwamen we tot de 
ontdekking dat het programma niet zelf de 
voorgrondkleur aangeeft, (slordig!). Staat 
de computer -bij het opstarten van dit 
pakket- b.v. in de voorgrondkleur blauw, 
dan is de tekstverwerker niet te 
gebruiken. De tekst is dan blauw op een 
blauwe achtergrond. Alle andere donkere 
kleuren zijn ook nauwelijks bruikbaar. 
Geef zelf eerst de tekstkleur op met: 
COLOR 15 (wit) of neem deze opdracht op in 
het AUTOEXEC.BAS programma. 

Ook blijft bij de tekstverwerker van dit 
pakket de diskdrive draaien (weer 
slordig!). Dit is geen ramp, maar zorgt 
wel voor extra slijtage aan de drive, 
wanneer dit programma erg vaak gebruikt 
wordt. Het doordraaien van de drive kan 
als volgt worden voorkomen: 

Kies, na het opstarten, uit het hoofdmenu 
de 'Home Office' en toets vervolgens de 
functietoetsen F1,F4 en F1 in i.p.v. de 
keuze uit het menu. Nu komt de tekst- 
verwerker ook op, echter zonder dat de 
drive blijft draaien. 

PHILIPS VG-8250 MSX-2 

Het heeft maar een halve avond geduurd, 
maar we hebben toch even de gelegenheid 
gehad om deze nieuwe MSX-2 machine van 
Philips wat nader te bekijken. Gelukkig 
zijn er geen belangrijke wijzigingen 
t.o.v. de VG-8235 aangebracht zodat in 
ieder geval ook deze machine vrijwel alle 
MSX-1 software kan draaien (uiteraard wel 
met de beruchte POKE) omdat de geheugen- 
indeling van beide machines gelijk is. Wat 
het meeste opvalt is het losse toetsenbord 
dat weer iets verbeterd is. De aanslag is 
iets fijner (maar dan ook niet meer dan 
iets) en de aftasting van de toetsen is 
aanmerkelijk versneld. De VG-8235 was al 
een hele verbetering, maar op deze machine 
gaat alles nog sneller. Ook bij het 
indrukken van een toets voor de repeteer- 
functie vindt nu geen pause meer plaats. 
Ook iets versneld is het opstarten (koude 
start) . De ingebouwde diskdrive heeft een 
dubbele opslagcapaciteit (nu 720K tegen 
360K op de 'oude' machine) en er is plaats 
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voor een tweede (in te bouwen) drive We 

pre-prodüctie 

aan?,Ht?n^^ machine zat geen externe 

aanluiting voor een extra drive, wel 
vonden we op de achterkant een markering 
die overeenkomt met een aansluiting voor 
zo n drive. Komt deze er niet, dan zou dat 
jammer zijn voor al diegenen die nog een 
drive hebben staan. Het inlezen vin de 
oude 360K diskettes ging probleemloos 
, computer herkende de 360K 
enkelzijdige- diskette als zodanig) ; maar 

programma, op deze 
diskette iets in een file weggeschreven 
dan ging het mis. Vanaf dat moment gaf de 
computer ineens een dubbele opslag- 

verwachten (we 

hebben het niet kunnen proberen) dat 
hierdoor het systeem een error geeft zodra 
de computer probeert op de tweede kant van 

K schrijven. Ook 

hadden we problemen met de printer 

aangesloten 

printer- de computer werd uitgezet, begon 
de printer bijna 2 pagina's onzin en 
spaties te printen. Waarschijnlijk een 
stoorpuls vanaf een onvoldoende ontstoorde 
voeding. Maar nogmaals: dit was nog niet 
de definitieve computer zoals deze in de 
winkel zal verschijnen. Verder niets dan 

te problemen 

software van de 
hfLi’ nieuwe Sony MSX-2 machines 

hebben ons daaraantegen alweer de eerste 

software*^ bereikt over problemen met 

SVI X* PRESS 16 

editie van 

de HSX-Gids. Hierin hadden . we duidelijk 
vermeld dat deze nieuwe machine alleen MSX 
rompacks kon verwerken (via een adapter) 
en verder niets; de X'Press 16 is verder 
dus geen MSX machine. Ook ‘wordt deze 
computer als homecomputer op de markt 
gebracht; het is dus geen echte PC, maar 
de computer is wel 100% PC-compatible. We 
hebben ook met deze machine slechts enkele 
uurtjes kunnen stoeien en in ieder geval 
IS de machine PC-compatible. Alle 
lastige' PC-programma's werden door de 
X Press 16 moeiteloos gsaccepteerd. 
Uiteraard konden programma's die een 
grotere geheugencapaciteit verlangden dan 
de standaard 256K niet worden gedraaid, 
maar dat is bij meer klonen zo en hiervoor 

een geheugenuitbreiding 
geïnstalleerd moeten worden. 

De kast is vrij klein. Dit is vrijwel 
nooit een bezwaar, maar de voeding is ook 

vervelend. Een 
harddisk kan alleen gebruikt worden met 
een extra voeding en bij uitbreidingen 
die minder stroom verbruiken zal al snel 
een extra ventilator nodig zijn om 
oververhitting te voorkomen. Het toetsen- 
bord is redelijk; aanmerkelijk beter dan 
de keyboards van de andere SVI machines 
maar er zijn heel wat PCs met betere 
toetsenborden. De diskdrives zijn 
opvallend stil en wat geluid betreft te 
vergelijken met de MSX drives van Sony en 
Philips. Het geluid van de ingeboude 


speaker is afschuwelijk en niet regelbaar* 
hiermee komen de fraaie mogelijkheden van 
de ingebouwde soundchip zeker niet tot hun 
machine heeft slechts 1 
uitbreidingsslot en dit is het grote 
verschil met andere PCs. Waarschijnlijk 
ï'eden dat de machine als 
homecomputer op de markt wordt gebracht. 

Wie een echte PC -met al ziin extra 

ban ook beter een 
hnhh^ kopen. Wie alleen een eenvoudige 
hobbycomputer zoekt kan beter een MSX 

zit de X'Press 16. 
Wel PC compatible, dus een hele range van 
-vooral zakelijke- software stalt de 

dl^zake?iiv2^n^^“ beschikking. Om, buiten 
de zakelijke toepassingen, nog wat leuke 

spellen te doen kan een adapter voor 
rompcks worden aangeschaft. De computer 
IS het interessants voor de hobbyist en 
programmeur die wat meer wil dan de trage 

Raqrrf^ krappe geheugen (vooral in 
BASIC) .Daartoe is de X'Press 16 dan ook 
uitgerust met dezelfde videochip (128K 

”^^“2 zit plus 
dezelfde geluidsgenerator . Ook is de BASIC 
hiervoor aangepast dus de (BASIC) pro- 
grammeur kan met deze machine zijn hart 
ophalen. De BASIC van deze machine komt 
Sterk overeen met de BASIC van de MSX en 
BASIC programma s van de MSX kunnen voor 
een groot gedeelte vrij eenvoudig over 
gezet worden naar deze 16-bitter. Wat 
zuilen deze programma's snel draaien op 
deze machine! ! Zodra we een exemplaar ter 
beschikking hebben (en dan uiteraard wel 
avondje) zullen we enkele 
MSX Gids programma's overzetten op de 
X Press 16 en de resultaten -plus de 

plaatsen"^^*^ listing- in ons blad 

PARALLEL IMPORT 

Sinds enige tijd is de Spectravideo 
de markt in een versie die niet 
door de officiële importeur wordt 
uitgeleverd. Deze machines worden geleverd 
zonder Nederlandse handleiding en er 
worden geen gratis updates gemaakt van de 
meegeleverde systeemschijven. Als zo'n 

serienummer 

738014000 en hoger en de SV 728 met 
serienummer 728035000 en hoger) eventueel 
zou raken, dan wordt door de 
officiële importeur geen reparatie 
Uitgevoerd. Let er daarom goed op dat deze 

Nederlandstalige 
handleiding worden aangeboden. 

Ook worden veel Engelse computers op de 
Nederlandse markt aangeboden (JVC, 
Mitsubishi, enz.). Vaak wel met garantie 
doch soms niet af geregeld voor Nederlandse 
TV-toestellen. Deze computers werken allen 
prima op een monitor maar geven problemen 
bij aansluiting op een TV (brom, geen 
geluid). Laat deze machines demonstreren 
op een TV, en niet op een monitor, om te 
kunnen vaststellen of ze aangepast zijn 

in de afstand 

tussen beeld- en geluidskanaal anders dan 
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PEEKS POKES & TIPS 
VARIABELEN EN SNELHEID 

Eerst even terug naar nr.1 van de MSX-Gids 
waarin een stukje heeft gestaan met tips 
om de snelheid van programma's te verho- 
gen. De oplage van dit blad was nog erg 
beperkt en we krijgen steeds meer program- 
ma's binnen waaruit blijkt dat veel lezers 
niet vertrouwd zijn met deze mogelijkheden 
om de snelheid op te voeren. 

Om de snelheid, bij gebruik van variabe- 
len, te demonstreren gebruiken we het vol- 
gende programma; 

5 'PROGRAMMA 1 

10 DEFDBL A-Z : TIME = 0 

20 FOR I = 1 TO 2000 

30 P = 1 

40 X = X + 1 

50 NEXT I 

60 GDSUB 1000 


70 •' 



80 ’ 

PROGRAMMA 2 


100 

DEFINT A-Z ; TIME = 

0 

110 

FOR I = 1 TO 2000 


120 

P = 2 


130 

X = X + 1 


140 

NEXT. I 


150 

GOSUB 1000 


160 



170 

'PROGRAMMA 3 


200 

DEFINT A-Z : TIME = 

0 

210 

FOR I = 1 TO 2000 


220 

P = 3 


230 

X = X + 1 


240 

NEXT 


250 

GOSUB 1000 


260 



270 

'PROGRAMMA 4 


300 

DEFINT A-Z:TIME=0 


310 

FORI=1TO2000 


320 

P=4 


330 

X=X+1 


340 

NEXT 


350 

GOSUB 1000 


360 



370 

'PROGRAMMA 5 


400 

DEFINT A-ZïTIME=0 


410 

FOR I = 1 TO2000 ! P=5! X=X+- 1 ï NEXT ! GOSU 

BI 000 


995 

END 


999 

> 


1000 

S#=TIME/50 


1010 

PRINT 


1020 

PR I NT " PROGRAMMA ” ; P 

. II . II « 
4 • ^ 

1030 

PRINT US ING ■’###.##" 

SS#; 

1040 

PRINT " SECONDEN" 


1050 

RETURN 


Wanneer we dit programma draaien, zien we 

dat 

de verwerkingssnelheid 

steeds lager 


wordt. Elk programmaatje is gelijk, doch 
er zitten steeds kleine verschillen in: 

Programma 1 maakt gebruik van variabelen 
met dubbele precisie (dit komt overeen met 
de variabelen die de computer instelt bij 
het opstarten) . Deze variabelen nemen de 
meeste geheugeruimte in beslag en werken 
het traagst. Wel kunnen deze variabelen 
grote getallen verwerken maar het is niet 
nodig deze te gebruiken wanneer grote 
getallen (al dan niet met cijfers achter 


de komma) niet verwerkt hoeven te worden. 
Ook in dit programma wordt de NEXT (regel 
50) gebruikt MET een variabele. 

Programma 2 is al een stuk sneller omdat 
hier INTEGER variabelen worden gebruikt 
(alleen HELE getallen mogelijk met een 
maximale waarde van -32768 tot +32767) . 
Deze variabelen zoveel mogelijk gebruiken 
want de verwerkingssnelheid is het hoogst 
en ze nemen minder geheugenruimte in 
beslag! ! 

Programma 3 is gelijk aan 2 behalve de 
NEXT, die zonder variabele gebruikt wordt. 
Waar mogelijk dient dit in eigen program- 
ma's ook zo gebruikt te worden. 

De extra snelheid die wordt verkregen met 
programma's 4 en 5 komt uitsluitend door 
het weglaten van de spaties tussen de 
instructies (programma 4 ) en het plaatsen 
van meerdere instructies op 1 regel ( 
programma 5) . Deze extra winst is niet erg 
indrukwekkend, maar alle kleine beetjes 
helpen. Wanneer we programma 1 en 5 
vergelijken dan zien we dat het laatste 
programma in bijna de helft van de tijd 
wordt doorlopen! 

Met dit programma kan meteen de snelheid 
van de computer gemeten worden. Programma 
5 heeft op de X' Press 12.18 seconden no- 
dig, op de Philips VG-8235 8.06 seconden 

en op de JVC HC-7gb 7.62 seconden. Er zijn 
MSX-computers die nog iets sneller zijn. 
Het zal duidelijk zijn dat een programma 
op de X' Press beduidend trager loopt dan 
op andere computers (zie ook onze opmer- 
kingen bij het artikel over SPRITES in 
MSX- Gids nr. 7 op pagina 41). 

Ook opvallend is de verwerkingssnelheid 
van verschillende variabelen wanneer we 
kijken naar de plaats in de tabel van deze 
variabelen. 

Elke keer als een variabele in een pro- 
gramma wordt benoemd, wordt deze door de 
computer in een tabel geplaatst. De eerste 
variabele die wordt benoemd komt op 
positie 1, de tweede op positie 2 enz. 
Elke keer dat een variabele wordt gebruikt 
wordt deze door de computer opgezocht in 
de tabel. De eerste wordt -uiteraard- het 
snelste gevonden en de laatste het 

langzaamst. Het volgende programma geeft 
aan dat bij gebruik van variabelen uit het 
einde van de tabel het zoeken ongeveer 2 
keer zo lang duurt als bij variabelen uit 
het begin van de tabel. Hoe langer de 
tabel, hoe langer het zoeken duurt naar 
variabelen uit deze tabel. In dit 

voorbeeld is de tabel zo lang gemaakt, dat 
het zoeken ongeveer 2 keer zoveel tijd in 
beslag neemt bij variabelen uit het einde 
van de tabel. 


24 


10 DEFÏNT A-Z 

20 Y=0; A=l: 1=1 : C=1 s D=1 : E=1 s F=1 : B=1 
30 AA=0:BB=0ïCC=0:DD=0ïEE=0 
50 H=l;K=l!L=lsM=l;N=l!D=l!P=l:Q=i 
60 R=l:S=l!T=l:U=l: V=1:W=1:Z=1 
70 X=0:Z=1:J=0 
80 TIME=0 

90 FOR 1=1 TD 1000 
100 Y=Y+A 
110 NEXT 

120 PRINT TIME/50 
130 TIME=0 


140 FOR J=1 TO 1000 
150 X=X+Z 
160 NEXT 

170 PRINT TIME/50 
180 END 


Wanneer we beide programma's combineren 
kunnen we nog grotere verschillen zicht- 
baar maken. Het zal duidelijk zijn dat bij 
grote programma's met veel variabelen met 
bovenstaande wel degelijk rekening moet 
worden gehouden om een maximale snelheid 
te verkrijgen (vooral bij spellen). 


HIHEM 


Het is aan te bevelen om in programma's 
deze opdracht toe te passen voordat er 
iets ingevoerd moet worden. Dit voorkomt 
dat een eerdere toetsaanslag opgenomen 
wordt als behorende bij de eigenlijke 
invoer. 


POKE &HFBB1,! schakelt STOP uit. 

POKE &HFBB1,0 schakelt STOP weer aan. 

POKE «èHFF89,225 schakelt LIST uit. 

POKE &HFF89,201 schakelt LIST weer aan. 

POKE &HFF89,229 maakt van LIST een RESET 


CLOAD + RUN 

Er is al diverse malen gevraagd om een 
mogelijkheid om cassetteprogramma ' s , weg- 
geschreven met CSAVE, in te lezen met een 
automatische RUN. Dit kan eigenlijk alleen 
met programma's die in ASCII-vorm zijn 
weggeschreven met SAVE"CAS:" wat erg traag 
werkt en veel ruimte op de band inneemt. 
Met onderstaand programma kunnen casset- 
teprogramma 's met CLOAD worden ingelezen 
en automatisch opgestart worden. Nu kunnen 
programma's vanuit een menu worden onae- 
start . 


Het hoogst bruikbare adres in BASIC is uit 
te lezen met de volgende opdracht: 

PRINT PEEK (&HFC4A) +256*PEEK (&HFC4B) 

De uitkomst is afhankelijk van de aanwe- 
zigheid van een diskdrive en verschilt 
tussen MSXl en MSX2 machines. 

Cassette programma’s gaan meestal uit van 
een machine zonder diskdrive en kunnen 
vaak niet draaien met aangesloten disk- 
drive. Om deze programma's toch te laten 
draaien moet de computer opgestart worden 
met de SHIFT-toets ingedrukt; dan is het 
volledige geheugen vrij voor het cassette- 
programma. HIMEM bij MSX-2 ligt lager en 
sommige MSX-1 diskettes kunnen hier weer 
niet mee overweg. Wanneer deze diskettes 
niet willen werken op en MSX-2 dient de 
machine opgestart te worden met de CTRL 
toets ingedrukt zodat de geheugenruimte 
overeenkomt met de MSX-1. 

Voor de Philips VG-8235 en VG-8260 is een 
opdracht om veel MSX-1 software, die op 
deze machines niet wil draaien, toch aan 
de gang te krijgen. Dit gebeurt door de 
machine op te starten als boven en 
vervolgens POKE &HFFFF,iHAA op te geven. 
Hierna kan de laadinstruktie van het 

programma worden ingevoerd. 

NOG ENKELE ADRESSEN EN POKE' S 

Een RESET kan worden verkregen met de 
volgende opdrachten: 

DEFUSR=0:X=USR(O) of: P0KE&HFD9A, &HC7 

Deze reset werkt alleen als de machine nog 
in BASIC beschikbaar is. 

Een CLEAR opdracht voor het keyboardbuf f er * 
wordt verkregen met: 

DEFUSR=342:X=USR(0) 


10 

20 

30 

40 

50 

60 

70 

80 

90 

100 

110 

120 

130 

140 

150 

160 

170 

180 

190 

200 

210 

220 

230 

240 

250 

260 

270 

280 

290 

300 

310 

320 

330 

340 

350 

360 


•’* t CLOAD 4- RUN voor cassetes 

^ ^ jjr 

•'» (C)1987 MBX Gids Amsterdam * 

* 

' iR 

REM KEYBOARD BUFFER WISSEN; 

REM 40 BYTES (KEYBUF) 

FOR I=?<HFEFO TO ?<HFC18 ■ 

POKE 1,0; NEXT >-/ 

REM START ADRES TEKST IN BUFFER; 
REM GETPNT 
POKE 8<HF3FA,?<HFO 
POKE 8<HF3FB,8<HFB 

REM ADRES E I NDE TEKST + 1 ; 

REM PUTPNT 
POKE 8<HF3F8,&HF9 
POKE 8<HF3F9’, ?<HFB 

REM TEKST IN BUFFER ZETTEN; 

POKE 8<HFBF0 , ASC ( " L " ) 

POKE ?<HFBF 1 ; ASC ( I " ) 

POKE 8<HFBF2 , ASC ( " S " ) 

POKE 8<HFBF3 , ASC ( " T " ) 

POKE ?<HFBF4, 13; REM RETURN 
POKE 8<HFBF5 , ASC ( " R " ) 

POKE 8<HFBF6,ASC("U") 

POKE 8<HFBF7 i ASC ( " N " ) 

POKE ?tHFBF8', 13;REM RETURN 
CLOAD "NAAM" ' 


In het programma zit tevens een LIST 
opdracht en het zal duidelijk zijn dat er 
meerdere mogelijkheden zijn om, via het 
keyboard buffer, opdrachten te geven alsof 
ze rechtstreeks via het toetsenbord 
ingevoerd zijn. Zo komen we ook weer bij 
de -hierboven reeds genoemde- opdracht 
terug om het keyboard buffer te wissen 
■(een sprong naar adres &H156) welke niets 
anders inhoudt dan hetzelfde adres in 
GETPNT en PUTPNT te plaatsen; de inhoud 
van het buffer wordt hiermee niet gewist. 
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wie met deze opdrachten wat wil gaan 
stoeien kan dan ook beter de wisopdracht 
-regels 130 en 140- niet gebruiken om 
zodoende eventuele fouten te herkennen. 
Zolang in tekstmode wordt gewerkt zullen 
de opdrachten uit het buffer ook op het 
beeldscherm zichtbaar zijn; ook weer net 
alsof ze vanaf het toetsenbord zijn 
ingevoerd. 

Deze vorm van invoer kan ook gebruikt 
worden op de MSX-2 om met de RAMdisk te 
werken om bijvoorbeeld vanuit een 
programma het programma weg te schrijven. 
Na een SAVE-opdracht komt -normaal 
gesproken- de cursor weer terug op het 
scherm voor een volgende opdracht. Door 
volgens bovenstaand programma te werk te 
gaan kan een RUN-opdracht worden gegeven 
aan hetzelfde programma of kan een ander 
programma (van disk of uit een andere 
RAMbank) worden geRUNd, 

Wij houden ons aanbevolen voor andere 
leuke tips of PEEK’ en POKE's. 

Tot de volgende keer. 

Alf red. 


stelling, maar ook voor de Z80. Ik kocht verscheidene 
boeken en boekjes over de MSX, waaronder het "MSX- 
zakboekje". In dat boekje staan niet alleen korte 
ccischrijvingen van alle MSX-BASIC-instrukties, de 
'jideo- en geluidsmogelijkheden van de MSX-computer, 
maar ook de Z80 kwam op deze wijze aan de orde, net 
als in het ZX-Spectrum zakboekje trouwens. Een tijdje 
later herinnerde ik me die niet-officiele instrukties 
uit dat ZX-Spectrum zakboekje, die overigens niet in 
het MSX-zakboekje (van dezelfde schrijver) staan. Ik 
haalde het ZX-Spectrum boekje weer op bij de biblio- 
theek, om de daarin vermelde onofficiële Z80 over te 
nanen en op mijn ccm^ter -of liever gezegd, op de Z80 
in mijn cctpater- uit te proberen. In het begin met 
BASIC-programmaatjes, zoals het voorbeeldprograranaatje 
verderop in dit artikel. Later gebruikte ik de MSX 
monitor/e(ütor uit nummer 3 van de MSX-Gids, hetgeen 
veel handiger werkte. Uit deze e:^rimenten bleek, dat 
(op een enkele na) al deze onofficiële instrukties op 
mijn ccmputer werkten zoals aangegeven. Sterker nog: 
ik zag zelfs kans er nog wat instrukties aan toe te 
voegen. Hoewel het niet zeker is, dat al deze onoffi- 
ciële instn^ties op alle Z80 microprocessoren zullen 
werken, wil ik toch een beschrijving hiervan geven. Ik 
zal niet alle onofficiële instrukties de revue laten 
passeren, want dat zijn er nogal veel. Wel zal ik ze 
per groep doornemen, daarnaast zal ik ook een over- 
zicht van al deze instrukties opnamen. 


NIET-OFFICIELE Z80 INSTRUKTIES 


Dit artikel gaat niet speciaal over F.SX-computers, 
maar wel over het hart van deze machine: de Z80 micro- 
processor. Omdat het vrijï^el alleen over het machine- 
taalprogranmeren gaat, is voor het begrijpen van dit 
artikel enige kennis hiervan en van de registeropbouw 
van de Z80 noodzakelijk. Ook is het nuttig om over 
literatuur betreffende de Z80 machinetaal te beschik- 
ken, daar het hier voor mij ondoenlijk is cm alle 
(officiële) instrukties aan de orde te brengen. Aan 
het eind van dit artikel zal ik enkele boeken opsom- 
men. 


De Z80 is in feite ^ 8080 (van Intel), waarin een 
groot aantal nieuwe instrukties en registers is toege- 
voegd. Omdat er op de 8080 nog maar vreinig opcodes 
zonder betekenis waren, werd besloten opcodecombina- 
ties van twee of meer Jjytes in te voeren, teneinde een 
groot aantal nieuwe instrukties in te kunnen boux^en. 
De opcodes CB, DD, ED en FD, xfelke in de instruktieset' 
van de 8080 niet voorkwamen, werden hiervoor gebruikt. 
Ondat niet alle mogelijke opcodecombinaties in deze 
groepen werden gebruikt, konden er naast de 'gedocu- 
menteerde' instrukties onder de niet-gebruikte opcode- 
conbinaties instrukties ontstaan, welke niet werden 
beschreven. Over deze combinaties xd.1 ik het nu heb- 
ben. 

Toen ik een jaar geleden bij de openbare bibliotheek 
het "Zakboekje ZX-Spectrum" van W.Akkermans in mijn 
handen kreeg, otadat ik naast de Acom Atom (die ik 
toen had en nu nog steeds heb) nieuwsgierig was naar 
andere raicrocaaputers, viel mijn oog op het hoofdstuk- 
je "Niet-officiele Z80 instrukties", hoewel ik toen 
nog geen ervaring had met de Z80. De sdirijver van dit 
boekje had vermoedelijk een aantal niet-gedocumenteer- 
de instrukties ontdekt en in dat boekje opgenctnen, 
ondat er "enkele erg interessante instrukties bijza- 
ten". Het boekje ging weer terug naar de bibliotheek 
en mijn -toch al geringe interesse- in de Z80 ver- 
dv/een. Totdat ik op een dag (voor een lage prijs) mijn 
tweede microcomputer kocht: de Mitsubishi ML-F80, een 
telg uit de inmiddels populair gex'/orden reeks MSX- 
machines. Niet alleen voor de MSX steeg mijn belang- 


A. DE CB-Gai<«P, KE SLL-INSTRUKTIE. 


De CB-groep bevat instrukties, waarmee de inhoud van 
de interne Z80-registers en geheugenplaatsen kunnen 
vjorden geroteerd, geschoven of er kan een enkele bit 
in een register of geheugenplaats x^orden geset, gere- 
set of getest. Bij het bekijken van de officiële lijst 
Z80-instrukties , op volgorde van opcode, lijken onge- 
v^r alle combinaties met CB voor te kernen. Maar het 
zijn ze niet allanaal! De cembinaties CB30 t/m CB37 
ontbreken, ma^ ze blijken wel een eigen betekenis te 
hebben, die niet in de officiële publikaties beschre- 
x;^ is. We hadden de schuif instrxikties SRL (Shift 
Right Logic, lo^sche verschuiving naar rechts) , SRA 
(Shift Right Arithmetric, rekenkundige verschuiving 
naar rechts) en SLA (Shift Left Arithmetric, rekenkun- 
dige verschuiving naar links) . De instruktie "logische 
verschuiving naar links" (Shift Left Logical of SLL) 
kemt hier niet voor. Deze naam is nu toegekend aan de 
instrukties net de opcodecombinaties CB30 t/m CB37. 
SLL lijkt op SLA, maar verschil moet er zijn en dat is 
er ook. Rechts wordt n.1. geen "0", maar een "1" naar 
binnen geschoven. Onderstaande illustratie maakt dit 
duidelijk: 

" 1 ") 


C H7 6 5 4 


" 0 " 








■ 


fr|7 6 
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4 

3 

2 

1 

0 

4 - 1 


1$ SLL-INSTRUKnE 


DE SLA-BISTRUKTIE 


C^) de plaats van bit 0 komt dus een 1 te staan. 
Een voorbeeld: 


Voor verschuiving C: Ir; 01110010 

Na uitvoeren SLA: C;0r: 11100100 
Na uitvoeren SLL: C;0r: 11100101 

Vergelijk vooral deze twee operaties met elkaar. De 
instrukties met opcodecorabinatie CB30 voert de bewer- 
king SLL uit op register B, de volgende zeven opcode- 
cembinaties (CB31 t/m CB37) doen dit achtereenvolgens 
op de registers C, D, E, H, L (HL) en A. 
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B. DE DD- IN n>-GROEP. VERBfiND TOSSIN HL EN K/IY 
REGISTERS. 

moeite heeft genomen alle opcodecxxnbinaties in 
de DD“ en de FD-groep te vergelijken laet de overige 
gezien, dat het toevoegen van de 
code DD of FD" dezelfde instruktie oplevert. Alleen 
worden de bewerkingen in plaats van op de H- en L- 
registers nu op de indexregisters uitgevoerd; "DD" 
selecteert het IX-register, "ED" het lY-register. Ik 
zal nu alleen met de DD-groep verdergaan, dus welke 
strekking heeft op het K-register, het verhaal over 
het lY-register (FD-groep) is volkanen gelijk. 

De DD-groep is dus vrijwel gelijk aan de instruktieset 
buiten de DD-groep, alleen wrden de bewerkingen, die 
^ de H- en L-registers uitgevoerd wrden, binnen de 
DD^oep op het K-register uitgevoerd, dus als de 
^e DD voor de oorspronkelijke opccde wordt gep- 
laatst. Alleen vragen de instrukties, welke naar een 
geheugenplaats verwijzen, nu een extra operand-byte 
voor de verplaatsing. Een voorbeeldje: 

34 INC (HL) 

DD 34 20 INC (K+20) 

0etal 20 in de laatstgenoonde instruktie is een 
willekeurig voorbeeld voor de verplaatsing, die in het 
vervolg zal worden aangeduid met de letter d. Instruk- 
ties, waar buiten de DD-^oep bewerkingen worden uit- 
gev^rd op de H- en L-registers afzonderlijk, worden 
in de DD-groep uitgevoerd op het 'hoge' en 'lage' deel 
v^ het (twee bytes-) indexregister: Kh en KI. En 
dit IS interessant, want deze mogelijkheid staat in 
geen enkele officiële publikatie over de Z80 beschre- 
ven! 

Voorbeeld: 'LD_E,H' wordt in de DD-groep 'LD E,Kh' en 
i^JE/L' wordt 'LD_E,K1'. Hiermee kunnen ^^e dus be- 
werkingen uitvoeren op de afzonderlijke hoge en lage 
delen van de indexregisters. Er zijn wel een paar 
«ntzonderingen: ’LD_H, (HL) ’ wordt in de DD-groep 

LD_H, (K+d) ' en niet 'lJ)_Kh, (K+d) ' . Verder gaat de 
regel niet op voor de instruktiecode EB (EX_DE,HL) , 
deze blijft onveranderd als hier/oor de code 'DD 
geplaatst wordt. Ook werkt dit niet met instrukties 
uit de ED-groep, die verderop beschreven wordt en 
combinaties van de DD- en ED-groepen onderling werken 
ook niet. 


C. DE DDCB- (EN EDCB-) CRCEP. 

Een volgende reeks instrukties wordt gevormd door de 
DDCB-groep, een combinatie van de DD- en CD-groep. Zo 
is er ook een EDCB— groep, maar deze omvat weer precies 
hetzelfde verhaal voor het lY-register, dus ook nu zal 
ik weer cm die reden enkel het K-register beschotufen. 

De CB-groep omvat -zoals eerder vermeld- alle schuif-, 
rotatie-, test-, set- en resetinstrukties, welke met 
de interne Z80-registers of geheugenplaatsen werken. 
In deze groep worden de instrukties uitgevoerd op de 
geheugenplaatsen, verwezen door de indexregisters, in 
dit geval het K-register, plus verplaatsing. De in- 
strukties uit deze groep vragen dus weer een extra 
operand-byte voor de verplaatsing. In totaal zijn deze 
instruktiecodes vier b^es groot, In de officiële 
lijsten eindigde de laatste byte van deze instruktie- 
codes altijd op een 6 of op een E, in de 'normale' CB- 
groep waren dat de instrukties, die betrekking hadden 
9P de geheugenplaats in (HL) . In deze groep hebben de 
instnikties betrekking op de geheugenplaats in (K+d) . 
Overigens, de instrukties met instruktiecode DDCBd36 
ontbreekt in de officiële lijsten; dit is de niet- 
officiele SLL-instruktie, die we in de CB-groep al 
zijn tegengekoaen. In de DDCB-groep blijkt deze 
nieuwe' instruktie ook te werken. Daarnaast was ik 


tenieuwd, hoe de Z80 zou reageren op de instruktieco- 
des uit deze groep, wanneer de laatste byte van de 
i^truktiecode NIlt op een 6 of een E zou eindigen. Er 
blykt dan het volgende te gebeuren: de bewerking 
WOT« uitgevoerd op de geheugenplaats, aangewezen door 
(K^) , maar het resultaat komt niet alleen in de 
desbetreffende geheugenplaats, maar ook in een van de 
interne registers te staan! Een voorbeeldje zal trach- 
ten het een en ander weer te geven: 

DD CB d 10 RL B, (K+d) 

betekent dat de "Rotate Left" bewerking wordt uitge- 
voerd op de geheugenplaats in (K+d) . Daarna komt het 
resultaat in geheugenplaats (K+d) en in het register 
B. In feite vinden de volgende instrukties na elkaar 
plaats: 

DD 46 d LD B, (K+d) 

CB 10 RL B 
DD 70 d LD (K+d) ,B 

Ms de gehei^enplaats in (K+d) zich in RCM bevindt, 
blijft de inhoud van deze geheugenplaats uiteraard 
^veranderd, maar in het register B (in dit geval) 
kont dan wel het goede resultaat te staan. Deze 
nieuwe instruktie is maar vier bytes lang, terwijl 
de drie (officiële) instrukties, die hetzelfde effekt 
geven, acht bytes in Ijeslag noiaen. Een interessante 
instruktie, omdat hiermee vele combinaties mogelijk 
zijn, waardoor het totaal aantal instrukties op de Z80 
aanzienlijk wordt uitgebreid. 


D. ra: ED-GRC®P. 

De laatste groep instrulctiecodes van twee tjytes wordt 
pvormd door de ED-groep. Deze groep Ijevat wat aanvul- 
lende instrukties, zoals input/output-instrukties en 
de block-move' instrukties, i^aarmee hele geheugen- 
blokken verplaatst kunnen worden. Door te letten op de 
regelmaat, waarin de instrukties met hun opcodeccmbi- 
naties in deze groep staan, ontdekte ik het volgende: 
De instiuktie NEG met instruktiecode ED44 blijkt 
ook te bestaan onder andere instruktiecodes, zoals 
E3MC, ED54, EDSC enz. tot en met ED7C. Ook de 
instrukties RETI, REIN, IM0, IMl en IM2 bestaan 
onder andere instruktiecodes naast de officiële, 

- De instrukties LD_(nn) , HL en LD_HL, (nn) met in- 
struktiecodes ED63nn en EB68nn bestaan wel en 
komen niet in de officiële lijsten voor, maar ze 
zullen waarschijnlijk niet gebruikt wrden, omdat 
deze instrukties al in de officiële lijsten voor- 
kanen onder de instruktiecodes 22nn en 2Ann en 
deze zijn korter, dus sneller 

Deze instrukties komen al voor in de instruktieset 
van de 8080, maar in de 280 zijn ze voor de regis- 
ters BC, DE en SP in de ED-groep bijgevoegd en 
hierin is deze instnüttie oo)c voor HL bijgekomen. 
Biuten de onofficiële instrukties om bestaat deze 
situatie ook al bij de instruktie 'ROL A' . 

— Aan de instruktiecodes ED70 en ED71, welke niet in 
de officiële lijsten voorkomen, kunnen IN_(HL) , (C) 
en 0OT_(C) , (HL) verbcsiden zijn. Dit is ook zo; 
echter uit experimenten Meek, dat deze andere 
resi^taten geven dan ik eerst verwachtte. 
IN_(^) , (C) zou als resultaat moeten hebben, dat 
de inhoud van de input/output poort (C) in de 
geheugenlokatie (HL) komt te staan. Dit gebeurt 
echter niet; wel worden de betrokken vlaggen beïn- 
vloed, hetgeen bewijst dat er wel degelijk iets 
gebeurt. Maar wat er exact plaatsvindt, is mij 
niet duidelijk. Ook om'_(C) , (HL) voldoet niet aan 
mijn verwachtingen, maar dat er iets gebeurt, 
staat vast. Na diepgaand experimenteren denk ik, 
dat er gewoon een nul in poort (C) worxit ge- 
plaatst. 
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Tenslotte, de ED-groep kan niet worden geccmbineerd 
met de DD- en FD-groep {met de CB-groep kan dit wel) 
cm de bewerkingen op de indexregisters in plaats van 
het HL-registerpaar uit te laten voeren. Er is dus 
geen I®EI>- en FDED-groep. Code DDED4A levert hetzelfde 
effekt op als ED4A (ADC_HL,BC) en geen ADC_IX,BC. 

Voor het bestaan van de onofficiële instrukties en het 
onvolledig werken van de instrukties ED70 en ED71 zie 
ik een mogelijkheid; de Z80 wordt in grote aantallen 
geproduceerd (massaf abrikage) . Na de eigenlijke fabri- 
kage worden ze getest op de belangrijke funkties. Een 
groot aantal chips zal deze test niet doorstaan en dus 
afv^len. Maar ^ goedgekeurde Z80 is alleen op de 
officiële specifikaties getest en de onofficiële in- 
strukties vallen daar uiteraard buiten. Daarom kan het 
effekt van deze instrukties per exemplaar verschillen 
en is het onzeker of ze op een bepaald exanplaar goed 
werken. 


F. CCmJUSIE 

Over het geheel gezien bevat de Z80 in mijn ccmputer 
veel meer instrukties dan uit de officiële publikaties 
over deze microprocessor is op te maken. Ik kan deze 
instrukties zcaider meer gebruiken, als ik er tenminste 
iets nuttigs mee kan doen, hetgeen niet bij alle 
instrukties het geval is. Ik kan echter niet garande- 
ren, dat deze instrukties op alle Z80 microprocessoren 
zullen werken, vooral niet nu IN_(HL) , (C) en 
CUr_(C) , (HL) (opcodecombinaties ED70 en ED71) op mijn 
Z80 niet aan mijn verwachting voldeden. De lezer (es) 
beveel ik van harte aan al deze onofficiële instruk- 
ties uit te proberen met zijn of haar computer en ik 
ben ook zeer benieuwd of er Z80 processoren zijn, 
waarop deze instrukties niet werken of andere resulta- 
ten geven of dat er Z80's zijn, waarop ED70 en ED71 
wel goed werken. 


E. EEW VOORBEHiDPRCXaUiMMaATJE. 

Het is natuurlijk zeer handig cm over de MSX-monitor/ 
editor uit MSX-Gids 3 te l)eschi)dcen (of een andere 
machinetaal ' debugger') , anders is men aangewezen op de 
hieronder beschreven -helaas omslachtige- methode: 
door middel van ^IC progranmaatjes machinetaalpro- 
grainaaatjes vanuit DATO-regels in het geheugen te 
'poken' ^ deze uit te laten voeren. Het voorbeeldpro- 
grammaat je hieronder laat ziai hoe dat gaat. 

Stel, we willen de instruktie SLL A uitproberen. Hier- 
voor gebruiken we het machinetaalprogranmaatje: 

LD A,20 
SLL A 

LD (A000),A 
RET 


G. LTTEKA'nAJR 

R.Zaks - Prograirmeren van de Z80 - Sybex Duesseldorf 
W.Akkermans - lEX-Zakboekje - Stark/Texel 
W.Akkermans - Zakboekje ZX-Spectrum, Kluwer 
Z80/Z80A-CPU Technical Manual - Tekelec Zoetermeer 
Z80-CTO Programraers Reference Guide - " " 

Er zijn overigens nog veel meer publikaties over de 
Z80. 


H. OVIEZIClTr NIET-OFFICIELE Z80-INSTRÜKTIES. 

Onderstaand overzicht bevat uitsluitend de onofficiële 
instrukties en vormt derhalve een aanvulling op de 
officiële lijsten: 


We zoeken voor deze instrukties de bijbehorende op- 
codes op (zie een der Z80 publikaties) en voeren het 
volgende BASIC prograitma in: 


8 bit load instrukties 


10 CLEAR 200,&H8FFF 
20 DEFÜSR=iB9000 
30 P=&H9000 
40 READ A$ 

50 IF A$="**" THEW 
60 A=VAL r«ai"+A$) 

70 POKE P,A 
80 P=P+1 
90 GOTO 40 
100 DATA 3E,20 
110 DATA CB,37 
120 DATA 32,00,A0 
130 DATA C9 

Voer het programma 

A=ÜSR(0) <retum> 

en lees dan de geheugenplaats A000 uit -hierin hebben 
we de inhoud van register A opgeslagen- met het com- 
mando: 

PRINT HEX$(PEEK(«aiA000)) <retum> 

Wanneer de uitkomst gelijk aan 41 (hexadecimaal) is, 
dan werkt deze SLL-instruktie ook op de Z80 in uw 
computer. Experimenteer ook eens roet andere getallen, 
bepaald eerst wat er uit zcsa moeten kernen en vergelijk 
(üt met de uitkemst. Probeer zo ook andere onofficiële 
instrukties uit. 

C^merking: niet alle Z80 instrukties laten zich op 
deze wijze zo gemakkelijk uittesten. 
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: 'LD A,20 
: 'SLL A 
: 'LD (A000),A 
; 'RET 

uit en toets in: 




A 

B 

C 

D 

E 

IXh 

IXl 

lYh 

lYl 

n 

LD 

A, 






DD7C 

DD7D 

FD7C 

FD7D 


LD 

B, 






DD44 

DD45 

FD44 

FD45 


LD 

C. 






DD4C 

DD4D 

FD4C 

FD4D 


LD 

D, 






DD54 

DD55 

FD54 

FD55 


LD 

E, 






DD5C 

DD5D 

FD5C 

FD5D 


LD 

IXh, 

DD67 

DD60 

D061 

0D62 

DD63 

DD64 

DD65 



DD26n 

LD 

IXl. 

DD6F 

DD68 

D069 

DD6A 

DD6B 

DD6C 

DD6D 



DD2En 

LD 

lYh, 

FD67 

FD60 

F061 

FD62 

FD63 



FD64 

FD65 

FD26n 

LD 

lYl. 

FD6F 

FD68 

FD69 

FD6A 

FD6B 



FD6C 

FD6D 

FD2En 


8 bit rekenkundige bewerkingen: 




IXh 

IXl 

lYh 

lYl 

ADD 

A, 

DD84 

DD85 

FD84 

FD85 

ADC 

A, 

DD8C 

DD8D 

FD8C 

FD8D 

SUB 

A, 

DD94 

DD95 

FD94 

FD95 

SBC 

A, 

0D9C 

DD9D 

FD9C 

FD9D 

AND 

A, 

0DA4 

DDA5 

FDA4 

FDA5 

XOR 

A, 

DDAC 

DDAD 

FDAC 

FDAD 

OR 

A. 

DDB4 

DDB5 

FDB4 

FDB5 

CP 


DDBC 

DDBD 

FDBC 

FDBD 

INC 


DD24 

DD2C 

FD24 

FD2C 


Roteer- en schuif instrukties: 


A B C D E H L (HL) (IX+d) (lY+d) 

SLL CB37 CBJ0 CB31 CB32 CB33 CB34 CB35 CB36 00CBd36 FDCBd36 

A,(IX+d) B.(lXtd) C,(lX+d) 0,(IX+d) E,(IX+d) H,(lX+d) L,(md) 
RLC D[)CBd07 Dt)CBd00 OQCBdBl DOCBd02 DDCBd03 OOCBd04 DOCBd05 

RRC DOCBd0F DOCBd08 DDCBd09 DOCBd0A DOCBd0B OOCBdUC OOCBd0O 

RL D0CBdl7 OOCBdlB DOCBdll D0CBdl2 D0CBdl3 DOCBdU DDCBdlS 

RR OOCBdlF DOCBdlS DDCBdlR DOCBdlA DOCBdlB DOCBdlC DOCBdlD 

SLA DOCBd27 00CBd2e D0CBd21 00CBd22 00CBd23 D0CBd24 DDCBd25 

SRA DOCBdlF DDCBdlS DDCBdlR DOCBdlA OOCBdlB DDCBdlC DOCBdlD 

SLL DDCBd37 DDCBd30 DDCBd31 00CBd32 DDCBd33 D0CBd34 DDCBd35 

SRL DDCBdSF 00CBd38 D0CBd39 DDCBd3A DDCBd36 00CBd3C 00CBd3D 


28 


FOUTl 


M deze i^truktiecodes, welke betrekking hebben op 
.J^eginnen met FD in plaats van DD, de 
^ j op eerste bv^es na 

hetzelfde als bovenstaand en wordt daarcm weggelaten. 

Bit bewerkings instrukties 

INS b,r,(IX+d) DOCBcHaabbbccc) (laatste byte binair geschreven) 
INS b,r,(IY+d) FDCBd(3abbbccc) (iaatstê byt6 binair 96schrav^n) 


Instr INS 

bit b 

register r 

aa 

bbb 

ccc 

BIT 01 

0: 000 

A: 111 

RES 10 

1: 001 

B: 000 

SET 11 

2: 010 

C: 001 


3: 011 

D: 010 


4: 100 

E: 011 


5: 101 

H: 100 


6: 110 
7: 111 

L: 101 


input/output instrukties 

IN (HL),{C) ED70 
(Xrr (C) , (HL) ED71 


DAT WAS 


YATHZEE 


In het programma 'YATHZEE' in de extra 
editie van de MSX Gids ontbreekt de sub- 
totaaltelling 'A', Dit totaal wordt wel 
afgedrukt wanneer de volgende regel in het 
prograiïima wordt opgenomen: 

3585 PRINT#l,USING"###";SO(SP) 

Ook wordt een van de 'grote straten' niet 
herkend. De volgende regel moet hiervoor 
worden gewijzigd: 

2630 FOR J=2 TO 6 


VIER OP EEN RIJ 


N.B. Deze twee instrukties voldoen in mijn geval niet 
aan de verwachtingen. Zie het artikel. 

Richtlijnen voor het gebruik van onofficiële instruk- 
ties: 

— Gebrmk deze instrukties niet in prograima's, die 
je wilt publiceren voor andere ccroputerbezitters, 
^t cindat de goede werking van de onofficiële 
instnAties niet op alle Z80's gegarandeerd is. 
Gebruik voor de NCF-operatie alleen de opcode 00, 
geen niet-;gedocumenteerde instruktiecodes; deze 
kunnen bij andere Z80 systemen onvoorspelbare 
effekten opleveren (verandering van geheugenplaat- 
sen, registers, vlaggen etc.) , hetgeen de goede 
werking van een prograirma behoorlijk kan verhinde- 
ren. 

Zet, bij het gebruik van deze instrukties, een 
progranma altijd eerst op cassette of diskette, 
voor het geval de ccmputer "op slot" gezet wrdt 
en het even uitzetten van het apparaat de enige 
uitweg is (niet alle computers hebben een reset- 
knop) on weer cxaitrole over de machine te krijgen. 
Hierdoor gaat het prograirma in het geheugen verlo- 
ren. Dit wordt overigens bij alle progranma 's 

dringend aanbevolen 

Het toepassen van de niet -officiële instrukties 
valt buiten de verantwoordelijkheid van de auteur. 
Bov^taand overzicht geldt voor de door mij ge- 
bakte Z80, er kunnen op andere Z80's meer of 
minder van deze onofficiële instrukties voorkomen. 


In dit spel -uit Gids nr. 6- herkent de 
computer soms niet, dat er vier op een rij 
compleet zijn. Hier moet de volgende regel 
worden veranderd: 

1290 IF L(J-0)=1 OR E(J)OZ GOTO 1310 


GETALLEN SPLITSEN 


In dit programma, uit Gids nr. 7, is op 
P^^rina 13 (hoe kan het ook anders) een 
drukfout ^oslopsn. In do tweedo kolom, 
links boven, moet het volgende staan: 


bütATE4,10:PRlNT"Hoe heet ie?’*:LOCATE 
9, 14: PRINT" (maximaal 12 letters)" 

730 POKE&HFCAB,&H0:OUT170,INP(170)OR 64 


De volgende regel is regel 740 


TORENS VAN GEDULD 


ARJAN HOFLAND. 


In Gids 7 op pagina 53 is de aanvulling op 
Torens van geduld' de mist in gegaan. 

De volgende regels moeten veranderd worden 


I 855 LINE(200,22)-(235,30) ,0,BF 

900 PSET(200,23) :COLOR15;PRINT#1,ZZ:GOTO 
450 

STARWARS 


De dubbele punt aan het eind van regel 
1270 moet weg! 

KAARTENBAK 


MINI GOLF 


In de regels 2530 en 2920 staat ST=0. Dit 
moet zijn : TS=0. Anders telt de score 
gewoon door bij het volgende spel. 


In dit programma uit Gids nr. 7 moet de 
volgende regel worden opgenomen: 

605 FOR 1=1 TO 5:YS(I)="":NEXT 
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GOUWE OUWE: INVADER FORCE 


Invader Force is een variant op het alom 
bekende 'Space Invaders' en sluit mooi aan 
bij de klasieker 'tennis' in het begin van 
dit blad. Aan dit spel is veel aandacht 
besteed. Er is een demo-ronde, een high- 
score tabel en het spelniveau is 
instelbaar. Proficiat aan het adres van 
de maker van dit spel en veel plezier met 
dit arcade spel. 

ALLEEN VOOR CASSETTE 
Beeldscherm! WIDTH 36 , / 


10 

20 ^ ^ # 

30 ’*INVASION FORCE Door: S. Wei gel* 
40 ’* # 

50 ’* <c)19B7 MSX Gids Amsterdam * 
60 •' * * 

70 '******************************* 
80 •’ 

90 REM hoD-f drout i ne 

100 DATA CD,0B,F1,FE,20,2B, 14,CD, A5, 
F0, FE, 00, CS, 21 ‘, 00, IB, CD, B0, F2, 3E, 20, 
CD, 4Di 00, 32, 7B, F3, CD^ 67', F2i 3Ei CDi CDi, 
2A,F3;FE,00,C8,3A,79,F3,E6,03,20,32, 
3 E,CD;cD,F 2,F1,3E,CD,CD,4E,F2,FE,01, 
20 , 05 , AF , 32 , 7C ; F3 ; C9 3 A , 78 i F3 FE i 00 , 
20 , 07 ■ 3E ; CD , CD ; 2 A , F2 ; 1 8 ; 05 , 3E i CD i CD , 

81 

110 DATA F0,3A,79,F3,E6,07,20,05,3E, 
CD,CD,DE,F0,3E,CE:cd;8A,F1,21,00; 1B, 
CD,B0,F2,CD;4A;00,FE,20;2B; i4;cd;a5’, 
F0, FE, 00, C8, 21 , 00, IB, CD, B0, F2, 3E, 20, 

CD, 4D, 00, 32; 7B; F3, 21 , 79, F3; 34; 6F, 3A; 
7D, F3, 67, 2B, 7C, B5, 20, FB; C3; EB; EF' 

120 RÈM move le-ft 

130 DATA E5,D5,C5,21,20, 18, 11,00, IB, 
4f,23,e7,20;04;ci;di;ei;c9;cd,4a,00; 
B9, 20, F2, 2B; cd; 4D; 00; 23 ; 3E, 20, CD, 4D, 

00 ; ib;e6 

140 RÈM base hit 

150 DATA E5,C5,21,02, 1B,3E,02,CD,4D, 
00,21 ,0A, 1B,3C,CD,4D,00;21 ,7C,F3,3S; 
06, FF, CD, 04, F3, 10, FB, 01 , FF, FF, 0B, 78, 
BI ,20,FB,21 ,0A, 1B;3E,05;CD,4D;00;21; 
02, IB, AF,CD,4D,00,C1,E1,3A,7C,F3,C9' 
160 RÈM drop bomb 

170 DATA E5,D5,21,FF, IA, 11, IF, 18,47, 
0E, 20, CD, 4A, 00, BB, 2B, 07, 2B, E7, 20, F6; 
Dl , El , C9, CB, 45, 20, F5, 06, 00; 09, 47, 3E, 

CE, CD, 4D, 00, 7B, 06, 00, ED, 42; 47, 1B; E4‘ 
180 RÈM basis 

190 DATA 21,01, 1B,CD,4A,00,5F,D5,3A, 
7A,F3,CD,D5,00,D1 ,FE,03,20,09;7B;FE, 
F0,2B;02,C6,04, 18,0B;FE,07;20,0D,7B, 
FE, 10,28,02,06,04,21,01, IB, CD, 4D, 00, 

21,00, 1B,CD,B0,F2,CD,4A,00,32,7B;F3, 
C9, 00, 00, 00 
200 RÈM laser 

210 DATA 21,04, 1B,CD,4A,00,FE,C0,20, 
1F,21 ,01, 1B,CD,4A,00,C6,04,21;05; 1B; 

CD, 4D, 00, 2B, 3A, 7A; F3, cd; DB, 00; FE ; FF ; 
C0;3E,B5,CD,4D,00, 18,0C,D6,03,FE, 1F, 
20,06,3E,C0,CD,4D,00,C9,CD,4D,00,CD, 

BO, F2, CD, 4A, 00, 32, 7B, F3, C9' 

220 RÈM move down r . 

230 DATA E5,D5,C5,4F,06,20,21 ,E0, IA, 
CD, 4A, 00, B9, 20, 05, 3E, 20, CD, 4D, 00, 23, 
10, F2, 21, 00, IB, 11, IF, 18,2B,E7,2S,2A, 
CD, 4A, 00, B9, 20, F6,C5, 01 ,20,00,09,47, 
CD, 4A, 00, FE, 20, 20, 10, 78, CD, 4D, 00, 06, 
00,ED,42,3E;20,CD,4D,00,C1, 1B,D9,CD, 
04,F3,06,20, 1B,E9,C1,D1,E1,C9’ 


fm 




Aft 



n 







ftft 


y 

y y y y y y y 

y y y y y y 



I NUAS I ON 

FORCE 



240 DATA 0,0, 0,0, 0,0, 0,0, 0,0, 0,0, 0,0 

,0,0,0,0,0,0,0,0,0,0;0 

250 REM ón ’ end ’ ' ‘ ‘ 

260 DATA E5,D5,C5,21,20, 18, 11,00, IB, 

06.00. 4,,CD,4A,00,B9,20,03, AF, 18, 17, 
79, 0E, 1F,09,4F,CD,4A,00,B9,20;04;3E; 

01 ; i8;0b;23;e7;20;e4;ci;di,ei;c9;32; 

78,F3;,79;32,F8,F7,CD,53,F3, 18, F0' 

270 RÈM move right 

280 DATA E5,D5,C5,21,FF, IA, 11, IF, 18, 
4F,2B,E7,20,04,C1,D1;e1,C9,CD,4A,00, 
B9;20;F2;23;CD;4D,00,2B,3E,20,CD,4D, 

00, ib;e6 

290 RÈM landing 

300 DATA E5,C5,4F,21,E0, 1A,06,20,CD, 
4A,00,B9,28,07,23, 1 0, F7, AF, Cl , El , C9, 

3E,01, 18, F9 

310 RÈM schiet 

320 DATA 06,05,E5,D5,C5,CD,48,F1,3A, 
7B , F3 , FE , 20 , 28 , 2F , FE , CE , 20 , 07 , 3E , 20 ', 
CD,4D,00, 18, 19, FE, DB, 20, 02, 18,F3,FE, 
CD , 20 ; 0F , 3E , 20 , CD , 4D , 00 , 32 ; 7B , F3 , CD ’, 
D5,F2,06,01, 18,0B,CD,04,F3,21,04, IB, 
3E,C0,CD,4D,00,C1,D1,E1, 10,BF,C9,0,0 
,0,0,0 

330 REM posbep 

340 DATA F5,C5,CD,4A,00,4F,23,CD,4A, 
00,47,79,3C,E6,F8,26;00,6F,29;29;CB, 
38, CB, 38, CB, 38, 48, 06, 00 ; 09, 01, 00 ; 18, 

09,C1,F1,C9 

350 RÈM score 

360 DATA E5,F5,21, 18, 18,CD,4A,00,FE, 
20 , 20 , 05 , 3E ; 30 ; CD , 4D , 00 , 3C , FE , 3A , 20 , 
08,D6,0A,CD,4D,00,2B, 18, E7, CD, 4D, 00, 
CD , 04 , F3 , 2 1 , 04 , 1 B , 3E , C0 , CD , 4D ; 00 , F 1 , 
E1,C9 

370 REM sound 

380 DATA F5,D5,3E,06, IE, 1F,CD,93,00, 

3E,07, ie,b6;cd;93;00;3c; ie; ia; cd, 93 ; 

00;3E,0C; 1E, 1F,CD;93;00',3C, ie, 00, cd, 

93.00, D1 ,F1 ,C9 
390 RÈM cleared 

400 DATA E5,D5,C5,4F,21,00, 18, 11,00, 
1 B , 06 , 00 , CD , 4 A , 00 , B9 , 20 , 04 , 06 ; 0 1 , 1 8 , 
04, 23, E7, 20, F2, 78, Cl, Dl, El, C9, 0,0,0, 
0,0, 0,0, 0,0,0 
410 RÈM move down 

420 DATA ED,4B,F8,F7,21,00, IB, 11,FF, 
17,2B,E7,CB,CD,4A,00,B9,20,F7,C5,01 , 

20 . 00 . 09 , CD , 4D , 00 , ED , 42 , 3E , 20 , CD , 4D , 
00, Cl, 18, E5 

430 CDL0R15, 1, 1 : SCREEN 1 ; WIDTH29: KEYO 
FFiLOCATE 8, 10! PRINT" I NV AS ION FORCE" 
ïLOCATE 6, 16!PRINT" INITIALIZING NOW. 

II 

440 CLEAR200, S/HEFEB: RESTORE90: FORZ=S< 
HEFEB TO 8<HF377!READ Z$!P0KE Z , VAL ( ” 
?<H"+Z$) iNEXT 
450 'Sprites 
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DATA 0,8,8,28,62,127,107,0 
470 DATA 128, 128, 128; 0,0, 0 , 0 ; 0 
480 DATA 32,12,145,90,44,90,53,24 
490 REBTORE 460: F0RZ=i4336TÓ14359s RE 
ADA7.: VPOKEZ , A7.: NEXT 

500 VP0KE69 12,192; VP0KE69 13,96: VPOKE 

6916,192; VP0KÈ69 17,96; VPOKE6920 ,184: 

VP0KÈ692 1,96: VP0KE6922 , 5 : VP0KE69 15,3 

5 1 0 VP0KE69 14,0; VP0KE69 18,1 

520 '‘Andere karakters 

530 DATA 56,124,214,254,56,84,130,68 

540 DATA 0,5, 5, 2, 7, 7, 7, 2 

550 DATA 3, 15,31 ; 63, 127, 127,255,255, 

255,255, 127, 127,63,31, 15,3, 192,240,2 

48 , 252 , 254 , 254 , 255 ; 255 

560 RESTORÈ530 ; FORZ= 1 640+BASE ( 7 ) TO 1 6 

55+BASE (7) ; READA7.; VPOKE Z , A7.; NEXTZ 

570 F0RZ=1696+BASE (7) T017i9+BASE <7) ; 

READA7.: VPOKE Z,A’/.: NEXTZ 

580 VPOKE BASE ( 6 ) +6 , 1 6 1 ; VPOKE BASE < 6 

) +7, 161; VPOKE BASE (6> +25, 144 

590 D I MHS ( 9 ) , HB$ ( 9 ) ; POKE8<HF37 A , 0 ; POK 

E8<HF37C, 3; P0KE?<HF37D, 5; DEFUSR=8<HEFEB 

: DEFUSRi=8<HF353; DEFIJSR2=8<HF2D5: DEFUS 

R3=8<HF304 

600 B=3:SN=5;BG=7; IN=3 

610 A*=’' ’rr ^rr-» 

620 B$=” •»"- 

630 U=USR3 ( 0 ) ; GOTO 1 260 ; ’ r ecl ame 
640 CLS ; LOC ATE 19,0: PR I NT " 00000 : SCOR ’’ 

; VP0KE6 175,69; VP0KE69 1 2 , 1 84 ; V= 1 ; S=0 ; 
POKE?<HF379,0 

650 VPOKE6914,0; VP0KE6918, 1;VP0KE691 
2,184 

660 LOCATE0, 19; PRINT" 



670 LOCATE0 , 4 ; PR I NT A$ ; LOCATE0 , 6 ; PR I N 
680 IF V<6THENV1=V 

690 IF V1>1THEN FOR Z=2T0V1;LDCATEZ- 
1 , 2*Z+4: PRINTEN; NEXT 

700 LOC ATE 1 1, 11;PRINT"GET READY";FO 
RZ=1TO700; NEXTZ; LOCATEl 1 ,11; PRINT" 

II 

710 U=USR(0) 

720 IF PEEK(8<HF37C)=0THEN 790 

730 SOUND7 ,190; PL AY " V 1 5T200O4CECEDFD 

F. " 

740 FORZ = 1 T02 1 ; LOC ATE0 , Z ; PR I NT " 

";NEXT;FORZ= 

1T02;U=USR1 <206) : NEXT: FORZ=1TO2000; N 
EXTZ;BEEP 

750 F0RZ=lT0V*4+(3-IN)+<5-B) \2;U=USR 
2<0) ;NEXTZ; IF PEEK (S«HF37D) >0THEN POK 
E&HF37D , PEEK ( 8<HF37D ) -5 
760 IFV=30R V=9THEN GOSUB780 
770 V=V+1 ; GOTO650 

780 LOCATE10, 1 1 :PRINT"EXTRA BASIS", T 
AB(10) ; "BASES; PEEK (?<HF37C) +1 ; FOR Z= 
1 TO2000 : NE X T Z ; LÖC ATE 1 0 , 1 1 ; PR I NT " 

",TAB<10>;" ":POKE8< 

HF37C, PEÈK <?<HF37C) +1 ; RETURN 
790 'einde 

800 LOCATE10, 10; PRINT" * #»***#** Kt# 

♦GAME OVER)»: 

^ ^ ^ ^ ^ ^ a* a* ^ ^ II 

/f\ /fi /jk tfi 

810 VPOKE 691 2, 192: VPOKE 6916, 192;S0UN 
D12, 150;SOUND13,0 
820 X=6168: Y=10:B=0 

830 IF VPEEK ( X ) =320R X=6143THEN 850 
840 S=B+ (VPEEK <X ) -48) )»:Y; Y=Y)|: 10: X=X-1 
; GOTO830 

850 FORZ=1TO900; NEXTZ; CLS 
860 F0RZ=1T09;IF B>HS ( Z ) THEN8B0 ELSE 
NEXT 

870 GOTO 960; ’ Hl -SCORES 
880 IF INKEY^<>""THEN880 


890 LOC ATE0 ,5:1 NPUT " UW NAAM " ; N^ 

900 IF LEN(N$) >12THEN LOCATE0, 5; PRIN 
T;GOTO880 

910 PRINT; PRINTZ : " ; N$; F0RX=1T0999 

:NEXT 

920 IFZ=9THEN940 

930 F0RX=8T0Z BTEP-1 ; HB$ (X+1 ) =HS$ (X) 
;HS(X+1)=HS(X) ;NEXTX 
940 HS$<Z)=Nf ;HS(Z)=S 
950 CLS 

960 U=USR3 ( 0 ) ; LOC ATE0 , 0 ; PR I NT " 
HIGH-SCORES 

970 FORZ=1TO9;LOCATE0, Z+8: PRINTZ; ": 
”;HS<Z) ; TAB (12) *, "; ";HS$(Z) ; NEXT; PRIN 
T; PRINT; PRINT BTRING$(28, "jt") 

980 FORX=1TO8000; IF STRIG (PEEK (8<HF37 
A))=-1THEN 1010 

990 IF INKEY$=""THENNEXT ELSE 1010 
1000 GOTO 1260 
1010 'game start 

1020 CLS;L0CATE5,5;PRINT"B ... SPELE 
N" ; L0CATE5, 7: PRIIMT" V ... VERANDEREN" 
1030 I^=INKEY$: IF I$="S"OR I$="s"THE 
NI 240 

1040 IF I$0"V"AND I*O"v"THEN1030 
1 050 CLS ; LOCATE0 , 5 ; PR I NT " SPELSNEL HE I 
D? (0-9) "; 

1 060 I $= I NI^:EY^ : I F I $= " ” THEN 1 060 
1070 IF ASC(I$X480R ABC < 1$) >57THEN1 
060 ELSE PRINTI$;BN=(9-VAL(I$) ))»!5 
1080 PR INT; PR INT "AANTAL LASERBASEB'? ( 
1-5) "; 

1 090 I $= I NKE Yf ; I F I $= " •• THEN 1 090 
1100 IF ASC<I*K490R ASC ( 1$) >53THEN 
1090 ELSE PRINTI$;B=VAL(I$) 

1110 PR I NT : PR I NT " BOMBARDEERGRAAD*> ( 1 - 
3) 

1120’ I$=INKEY$; IF I*=" "THENl 120 
1130 IF ASC(I$X490R ASC ( 1$) >51THEN 
1120 ELSE PRINTI$ 

1140 IF I$="1"THEN BG=15 
1150 IF I$="2"THEN BG=7 
1160 IF I$="3"THEN BG=3 
1170 PRINT; PRINT" INVADER SNELHEID*:? (1 
/2) "; 

1180 I$=INKEY$; IF I^<>"1"AND I$<>"2" 
THEN 1180 ELSE PRINTI* 

1190 IF I$="2"THEN IN=1 ELSE IN=3 
1200 PR INT; PR INT "KEYBOARD OF JOYSTIC 
K?(K/J) "; 

1210 I^=ÏNKEY^:IF I*="K"OR I$="k"THE 

N POKE8?HF37 A , 0 ; GOTO 1 250 

1220 IF I$="j"OR I$="j"THEN POKE8<HF3 

7A, 1: GOTO 1250 

1230 GOTO 1210 

1240 P0KE?ïHF37D, BN: POKE8<HF37C, B; POKE 
?tHF042 , BG ; POKE8<HF0 1 5 , I N ; GOTO640 
1 250 FÓRZ = 1 TO200 : NE X t Z : GOTO 1010 
1260 'reclame 
1270 CLS 

1 280 L0CATE2 , 4 ; PR I NT A$ : L0CATE2 , 6 ; PR I 
NTB$ ; L0CATE2 , 8 : PR I NT AS ; L0CATE7 ; 1 0 : PR 
I NT " ; LOCATE7 , 1 2 : PR I NT 

"INVASION FORCE" 

1290 DATA 73,78,86,65,83,79,70,82,67 

1 300 RESTORE 1 290 : FORZ= 1 TO 1 0 : READA7. : F 
0RX=1T08;U=USR1 (A7.) ; NEXTX ; U=USR3 (0) ; 
NEXTZ 

1310 FOR Z = 1 TO900 ; NE X T : FORZ = 1 TO 1 6 : U=U 
SRI (206) : NEXT 

1320 U=UBR3<0) :FORZ=1TO1000: IF INKEY 
S= " " AND STR I G ( PEEK ( 8<HF37 A ) X >- 1 THEN 
NEXTZ ELSE 1010 
1330 GOTO950 
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00000 SCORE 


64 TEKENS + 




^ * 



I. I . I . I 

^ -4 


C0HTR0LETELL1N6 

Regel 

680 - 

174 

Rege] 

10 - 

58 

Regel 

690 - 

122 

Regei 

20 - 

58 

Rege! 

700 - 

94 

Rege] 

30 - 

58 

Rege 

710 - 

131 

Rege] 

40 - 

58 

Rege! 

720 - 

46 

Regel 

50 - 

58 

Rege! 

730 - 

139 

Rege! 

60 - 

58 

Regel 

740 - 

62 

Regei 

70 - 

58 

Regel 

750 - 

97 

Regel 

80 - 

58 

Regel 

760 - 

254 

Regei 

90 - 

0 

Regel 

770 - 

251 

Regel 

100 - 

74 

Rege] 

780 - 

20 

Regel 

110 - 

74 

Rege] 

790 - 

58 

Regel 

120 - 

0 

Regel 

800 - 

43 

Regel 

130 - 

120 

Regel 

810 - 

111 

Regel 

140 - 

0 

Rege] 

820 - 

187 

Regel 

150 - 

229 

Regel 

830 - 

246 

Regel 

160 - 

0 

Regel 

840 - 

106 

Regel 

170 - 

29 

Regel 

850 - 

73 

Regel 

180 - 

0 

Regel 

860 - 

53 

Regei 

190 - 

207 

Regei 

870 - 

238 

Regel 

200 - 

0 

Regel 

880 - 

20 

Regel 

210 - 

163 

Rege! 

890 - 

196 

Regel 

220 - 

0 

Regel 

900 - 

60 

Regel 

230 - 

145 

Regel 

910 - 

237 

Rege! 

240 - 

116 

Regel 

920 - 

133 

Regel 

250 - 

0 

Regel 

930 - 

218 

Regel 

260 - 

155 

Regel 

940 - 

141 

Regel 

270 - 

0 

Regel 

950 - 

159 

Regel 

280 - 

199 

Regel 

960 - 

228 

Regel 

290 - 

0 

Regel 

970 - 

149 

Regel 

300 - 

219 

Regel 

980 - 

87 

Regel 

310 - 

0 

Regel 

990 - 

69 

Regel 

320 - 

168 

Regel 

1000 - 

167 

Regel 

330 - 

0 

Regel 

1010 - 

58 

Regel 

340 - 

39 

Regel 

1020 - 

129 

Regel 

350 - 

0 

Regel 

1030 - 

14 

Regel 

360 - 

146 

Regel 

1040 - 

157 

Regel 

370 - 

0 

Regel 

1050 - 

52 

Regel 

3B0 - 

21 

Regel 

1060 - 

221 

Regel 

390 - 

0 

Regel 

1070 - 

117 

Regel 

400 - 

166 

Regel 

1080 - 

212 

Regel 

410 - 

0 

Regel 

1090 - 

251 

Regel 

420 - 

93 

Regel 

1100 - 

235 

Regel 

430 - 

192 

Regel 

1110 - 

78 

Regel 

440 - 

188 

Regel 

1120 - 

25 

Regel 

450 - 

58 

Regel 

1130 - 

75 

Regel 

460 - 

172 

Regel 

1140 - 

12 

Regel 

470 - 

153 

Regel 

1150 - 

7 

Regel 

480 - 

66 

Regel 

1160 - 

4 

Regel 

490 - 

244 

Regel 

1170 - 

146 

Regel 

500 - 

226 

Regel 

1180 - 

133 

Regel 

510 - 

183 

Regel 

1190 - 

196 

Regel 

520 - 

58 

Regel 

1200 - 

197 

Regel 

530 - 

229 

Regel 

1210 - 

57 

Regel 

540 - 

123 

Regel 

1220 - 

182 

Regel 

550 - 

19 

Regel 

1230 - 

117 

Regel 

560 - 

63 

Regei 

1240 - 

90 

Regel 

570 - 

207 

Regel 

1250 - 

106 

Regel 

580 - 

102 

Regel 

1260 - 

58 

Regel 

590 - 

66 

Regel 

1270 - 

159 

Regel 

600 - 

195 

Regel 

1280 - 

199 

Regel 

610 - 

0 

Regel 

1290 - 

106 

Regel 

620 - 

32 

Regel 

1300 - 

1 

Regel 

630 - 

236 

Regel 

1310 - 

125 

Regel 

640 - 

34 

Regel 

1320 - 

210 

Regel 

650 - 

225 

Repel 

1330 - 

80 

Regel 

660 - 

194 

Totaa 

14511 


Regel 

670 - 

241 





Dit programma geeft de gebruiker de 
mogelijkheid om met 64 karakters per regel 
te werken op screen 2. Ook kan per pixel 
gewerkt worden om het beeld geheel naar 
wens te ontwerpen. De achtergrond- en 
voorgrondkleur zijn met resp. functie- 
toetsen F4 en F5 in te stellen. De cursor 
is een sprite. Met functietoets F1 kunnen 
beelden op cassette worden gezet (eerst 
patroon, dan kleur) en met F2 kunnen 
beelden van cassette worden geladen (dus 
niet geschikt voor diskdrive) . 

Het programma kan ook als subroutine 
worden gebruikt en wanneer dat het geval 
is, verkrijgt men een RETURN door op ESC 
te drukken. De machinetaalroutine (+ de 
karakters uiteraard) zijn ook los van het 
BASIC programma te gebruiken: 

DEFUSR=&HEFEA : U=USR(X) 

Hierbij is X dan de ASCII-code van het 
gewenste karakter (integer) . 

Adressen machinetaal: 


&HEFBF : COLOR (kleurt het gehele beeld). 
&HEFD0-&HEFE9 : kopieert VRAM naar RAM of 
omgekeerd. &HEFD0 = patroon, &HEFD5=kleur . 
&HEFEA-&HF07E : print karakters met de 
kleur die in &HF07f staat (16*voorgrond + 
achtergrond) . 

&HF080-&HF37f : karakters. Per 6 bytes 
twee karakters (1 karakter is 4 bij 6 dot 
matrix) . 


ALLEEN VOOR CASSETTE 
Beeldscherm: WIDTH 36 



10 

20 •'* 

30 •’ * 64CHR+ Door: S.UJeigel 

40 ’ * 

50 ’* (c)1987 MSX Gids Amsterdam 
60 •'* 

70 ^ %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% 
80 GOTO 1370 


90 REM COLOR 

100 DATA 21,00,20 

110 DATA ll'00;38 

120 DATA 3A,7F;,F0 

130 DATA CD,4D,00 

WRTVRM 

140 DATA 23 

150 DATA E7 

< r\ATA nrz. 

1 Ok.' Jl/H I H O 

170 DATA C9' 

180 REM COPY 

190 DATA 21,00,00 
200 DATA 18,03 
210 DATA 21^00,20 
220 DATA lliBFiDT 
230 DATA 01,00,18 
240 DATA 3A,F8,F7 
250 DATA FE, 01' 
260 DATA CA, 59, 00 
RMV 

270 DATA EB 
280 DATA C3,5C,00 
VM 
290 
300 
310 


:=“LD HL, 2000 
! ’LD DE, 3800 
; 'LD A, (F07F) 
: •’ CALL 004D = 

: =• INC HL 
: ’ RST 20h 
:'JR NZ,F6 
: ' RET 


: •' LD HL , 0000 
; ' JR 03’ 

:’LD HL, 2000 
; 'LD DE,D7BF 
;’LD BC;iB00 
; 'LD A, <F7F8) 

: 'CP 01 
;’JP Z,0059=LDI 

: 'EX DE, HL 
:'JP 005C =LDIR 


REM print-routine : 

REM HOOFD ROUTINE 

DATA E5 : ' PUSH HL 
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320 DATA D5 
330 DATA C5 
340 DATA 21, 
350 DATA 3A, 
360 DATA CB, 
370 DATA 5F’ 
380 DATA 16, 
390 DATA 19' 
400 DATA 19 
410 DATA 19 
420 DATA EB 
430 DATA 21, 
440 DATA cd; 
RDVRM 

450 DATA 47 
460 DATA 23 
470 DATA CD, 
RDVRM 

480 DATA 32, 
490 DATA CB, 
500 DATA CB, 
510 DATA CB, 
520 DATA CB, 
530 DATA 60' 
540 DATA 6 F 
550 DATA DD, 
560 DATA 06; 

570 REM ■ 

580 DATA CD, 
RDVRM 

590 DATA 4F 
600 DATA IA 
610 DATA DD, 
620 DATA C2, 
DE ROUTINE 
630 DATA DD, 
640 DATA 28, 
DE ROUTINE' 
650 DATA CB, 
660 DATA CB, 
670 DATA CB; 
680 DATA CB, 
690 DATA F5' 
700 DATA 79 
710 DATA E 6 , 
720 DATA 4F' 
730 DATA F1 
740 DATA C3, 
DE ROUTINE' 

750 REM 

760 DATA E 6 , 
770 DATA F5' 
780 DATA 79 
790 DATA E 6 , 
800 DATA 4F' 
810 DATA F1 
820 DATA C3, 
DE ROUTINE 

830 REM 

840 DATA DD, 
850 DATA 20, 
DE ROUTINE 
860 DATA CB, 
870 DATA CB, 
880 DATA CB, 
890 DATA CB, 
900 DATA F5 
910 DATA 79 
920 DATA E 6 , 
930 DATA 4F' 
940 DATA F 1 
950 DATA C3. 
DE ROUTINE' 

960 REM 

970 DATA E 6 , 
980 DATA F5' 
990 DATA 79 


80, F0 
F8,F7 
87 

00 


00, IB 
4A,00 


4A,00 

F9,F7 

97' 

38 

38 

38 


21,F8,F7 

06' 

LOOP 

4A,00 


CB,00,46 

48;F0' 

"ONEVEN" 

CB,01,56 

11 ' 

"LINKS" 

3F 

3F 

3F 

3F 


F0 


67, F0 
"NÈXT" 

LINKS 

F0 


0F 


67, F0 
"NÈXT" 
ONEVEN — 
CB,01,56 
11 ' 

"RECHTS" 

27 

27 

27 

27 


'PUSH DE 
'PUSH BC 
'LD HL,F080 
"LD A, (F7F8) 
’RES 0,A 
"LD E,A 
’LD D,00 
"ADD HL, DE 
’ADD HL, DE 
"ADD HL, DE 
'EX DE, HL 
'LD HL,1B00 
: ’ CALL 004A = 


: ’LD B, A 
! ’ INC HL 
! ’ CALL 004A = 

’LD (F7F9),A 
’RES 2 ,A 
’SRL B' 

’SRL B 
’SRL B 
’LD H,B 
’LD L,A 
’LD IX,F7F8 
’LD B,06 

’CALL 004A = 

’LD C,A 
’LD a; (DE) 

’BIT 0, (IX+00) 
’JP NZ;F048;IS 

’BIT 2 , (IX+1) 
’JR Z,il ; IS 

’SRL A 
’SRL A 
'SRL A 
’SRL A 
’PUSH AF 
’LD A,C 
'AND F0 


’LD C,A 
'POP AF 
’JP F067 


’AND F 0 
'PUSH AF 
’LD A,C 
'AND 0F 
’LD C,A 
’POP AF 
’JP F067 


IS 


IS 


0F 


67 , F0 
"NÈXT" 
RECHTS 
0F 


! ’BIT 2, (IX+01) 

: =• JR NZ; 11 ; IS 

’SLA A 
’SLA A 
’SLA A 
’SLA A 
'PUSH AF 
’LD A,C 
’AND 0F 
’LD C,A 
’POP AF 

s’JP F067 ; IS 


: ’ AND 0F 
s ’ PUSH AF 
: ’LD A,C 


: ’ AND F0 
; ’LD C, A 
: ’ POP AF 

• ’ riR p 

: ’ CALL 004D = 

ï ’ PUSH HL 
! ’LD A,H 
: ’ ADD A ,20 
! ’LD H,A 
: ’LD A, (F07F) 

; ’ CALL 004D = 


’POP HL 
’ INC HL 
’ INC DE 
’DJNZ 9F 


IS 


t ’ POP BC 
! ’ POP DE 
: ’ POP HL 
• ’RET 


1000 DATA E6,F0 
1010 DATA 4F' 

1020 DATA F1 

1030 REM NEXT - 

1040 DATA BI 
1050 DATA CD, 4 D ,00 
WRTVRM 
1060 DATA E5 
1070 DATA 7C 
1080 DATA C 6,20 
1090 DATA 67 
1100 DATA 3A,7F,F0 
1110 DATA CD,4D,00 
WRTVRM 
1120 DATA El 
1130 DATA 23 
1140 DATA 13 
1150 DATA 10, 9F 
DE ROUTINE "LOOP" 

1160 DATA Cl 
1170 DATA Dl 
1180 DATA El 
1190 DATA C9 

1200 REM KARAKTERS 

1210 DATA 0j9,0,9,6,0,F0, 6 A , FE , 6 E ,94 
, F0, 40, 44, AA, A4, 4E, 40; 40; E0, E0, 44, E0 

,0,F0,F6,F9,B9,F6,F0,F1,92,64,6E,9A, 
FE, El , A2, E2, 42, EC, 4C, A, 74, 5A, 5A, 94 , 2 
A, 44, 44, EF, 40, 40, 40, 4, 4, FC, 44, 44, 44 
1220 DATA 44, 44, 7F, 44, 44, 44, 40, 40, 4F 
,40,40,40,0,0,7C,44,44,44,44,44,7C,0 
, 0,0,0, 91 , 62,64,98,0,0, 84, 4F, 24; 10; 0 
> » 4 , 4 , 0 , 4 , 0 , A4 , AE , 4 , E , 4 , 0 , 68 , 82 , 44 , 
28, A2, 40, 44, A8, 40, 90, 60,0 • • • 

12Z0 DATA 28,44,44,44,28,0,A0,44,EE, 
44, A0, 0, 0, 0, E, 0, 40, 80, 2 , 2 , 4, 8 , 48, 0, 4 
4, AC, A4, A4, 4E, 0, 4C, A2, 24, 42, EC, 0 ; 2 È, 
68 , AC, E2, 2C, 0, 6 E, 82, C4, A8, 48, 0, 44, AA 
,46, A2,4C,0,0,44,0,0,44,8' 

1240 DATA 20,4E,80,4È,20,0,8C,42,24, 

40 . 84 .0. 44, AA , AE , 8 A , 6 A , 0 , C4 , A A , C 8 , AA 

,C4,0,CE,A8,AE,A8,CÈ,0,E6,88,CA,8A,8 

4.0, AE, A4,E4, A4,AE,0;eA,4A,4C,4A,8A, 

EA, 0 , CÈ, AA, AA, AA, AÈ, 0 ' 
CE, AA, CA, 8 C, 86 , 0, C 6 , A 8 , C4, 
A2, AC,0, EA, 4A, 4A, 4A, 4E, 0, AA, AA, AA, AÈ 
, 4A, 0, AA, AA, 44, A4, A4, 0, E6, 24, 44, 84, E 

6.0. 8,,84,44,24,2C,0,40, A0,0;0,È,0,4 
0,24, A, A,6,0,80,86,C8, A8,C6,0 ' 

1260 DATA 20,26,6E,A8,66,0,60,86,CA, 
8E,82,C,84,80,E4, A4, A4,0,48,8;4A;4C; 

S 4A, 4E, 4A, 4A, 0 , 0 ; CE; AA, AA, AÈ 

0, A4, CA, 82, 8C, 0-, 

80,CA,8A,AA,4E,0,0, AA, AA, AE,4A,0 ' 
1270 DATA 0 , AA, 4A, 46, A2, C, 6 , E4, 28, 44 
,E6,0,4C,44,2,44,4C,0,80,60;0,0,0;0, 
6 A, 90, 8A, 9A, 6 E, 0, 6 E, 0 , 64, EA; 86 , 60; AC 
, 0, 44, AA, 66 , 0, 46, 8 , 48, A 6 , 64, 8, 4A, 0, 6 
6 5 EE f SB 9 6>6> 5 CA 5 0 , 64 5 E4 , 84 , 60 

CC,0,44,44,44,0, A4,0,44, AA 
, EE , AA , EC , 82 , EÈ , 8 A , 86 , E 0 , ÈE , 40 , EE , 4 A 
J CE s 0 , AC , 0 , EÉ , AA , EÈ , 0 , EC , 0 , AA , AA , ÈE , 
0, AA, 0, AE, 6 A, 2A, CE, A4, E, A 8 , AE; A4, E 0 , 
4A, 84, CE, 84, EE, 0,C2, C4, A6,B4, 28, 30 
1290 DATA 66,0,44, A4, 64, 0,66,0, ÈA, AA 

’ ’ ® !> ^C, AA, 6 È, 0 , EÈ, 0 

,40,0,4F,8B,68,0,E,0,FC, 12, 14,E;E4,0 
C4, 0, 24, 42, 24, 0, 0, 0, 46, AB, 
EE, AE, 0,0, E4, 44,44, E4,0 ' ' ' 

1300 DATA 0,È0, AE, AA,ÈE,0,0, A0, AA, AA 
,EE,0,EA, A0, AA, AA,22,C4,0,C0,25,4A,2 
0, C0, 8 , 42, A4, 48, 0, A, 72, A4; 6 A; 2A, 24,8 
,C,C,C,3,F3,F3,F,F,F0,F0,F0,F0,F,F,E 
F,EF,0,0,83,B3,83,8C,BC,8C ' ' ' 

1310 DATA Ei, Ei, Ei, Ei, Ei, El, 71, 72, 74 

,79,72,74,8F,46,20,90,40,20;0,B,c;c, 

68,F0,F, 16,30,30, 16, F, C, 9C, FC, F0, 90; 
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0,3,3,3,30,30,30,5, A, 5, CA, C5, CA, 4, 4E 
, A4,E4,E,4,F,F,BF, AF;5F,F' 

1320 DATA C,C,C,FC,FC,FC,3F,3F,3F,30 
,30,30, 14,é>A,AC, AA,6C, 18, EA!, 8Ai 8A, 8A 
, 8A, 0, E0, 90, 4F, BA, 9E, È0, A, 4' A4, A4; E4 
,80,4E,EA, AE,EA,4E,0,46, A4, AE,4A, A4, 
0, 2, E, AA, 4E, AS, 0, é>0, 84, ÈA, 8A, tA,0 
1330 DATA E0,4,EÈ,4 ;ee;0,C6,28,C6,0, 
EE, 0, 4, 24, 44, 44, 48, 40, 46; 8, È0, 6, 48,0 
,46, A6, 40, 0,0,0, 1,2,6A,64,0,0;CC, A2, 
A4,E, 0,0, 0,60, 60, 60; 0,0 
1340 TL=0!FOR Z=?<HEFBF TO 8<HF07EïREA 
D H$:POKE Z , VAL ( : TL=TL+VAL < *’ 
sNEXt Z 

1350 RESTORE 1210; FOR Z=8<HF080 TO 
F37F;READ H$:PDKE Z , VAL ; NEX 


1 360 DEFUSR=S<HEFE A ; DEFUSR 1 =?<HEFD0 ; DE 
FUSR2=8<HEFD5; DEFUBR3=&HEFBF: RETURN 
1370 CLEAR200, ?<HD7B8; KEYOFF; C0L0R15, 

1380 ’ **♦»*#♦#** 

* 64CRS+ » door B.Weigel,Veg 

hel 


1 390 SCREEN0 : W I DTH38 : PR I NT " 64 

KARAKTERS OP EEN REGEL" : PRINT; PR INT" 
24 REGELS, DUS MAX. 1536 KARAKTERS. 
PRINT; PRINT" F1=PAGINA SAVEN; F2= 
PAGINA LADEN; F3=NIEUWE NAAM; F 

4=ACHTERGR KLEUR; F5=V00RGR KLEUR; 
F6=BEELD KLEUREN; " 

1400 PRINT" RETURN=NIEUWE REGEL; SH 
IFT-HOME=CLS; SELECT=CURBOR KIEZEN; 
ESC= 'RETURN' ; " 

1410 PRINT" HOME=CURSOR LINKSBOVEN; 
BS=BACKSPACE; S=BET ; W=WIPE(BIJ KLÊ 
INE CURSOR) . ";GOSUB 1340; IF TL02369 
2THEN CLS;BEEP;PRINT"ERRDR IN MT.DAT 
A'S"; END 


1420 LI NE INPUT "WELKE NAAM GEEFT U A 
AN DE PAGINA DIE U GAAT ONTWERPEN 
" ; DF$ 

1430 IF LEN<DF$) >6THEN LOCATE 0, (CBR 
LIN-2):G0T0 1420 ELSE DF$=DF$+SPACE$ 
(6-LEN(DF$) ) 

1440 DATA 0,0,0,240,240,0,0,0 
1450 DATA 128, 128, 0,0,0, ©;0;0 
1 460 POKE?<HF07F , 24 1 : SCREEN 2 , 0 , 1 , 2 
1470 RESTORE 1440; DEF INT I ‘ ’ 

1480 KEYl , " " : KEY2, " " ; KEY3, " " ; KEY4, " " 

: KE Y5 , " " ; KEY6 , " " ; ÓN KEY GÖSUB 1 990 , 2 
020 , 2060 , 2070 ,2140,2210; KEY ( 1 ) DN ; KÈ Y 
(2) ON; KEY (3) ON; KEY (4) ON; KEY (5) ON; KEY 
(6)0N 

1490 FOR TT=0TO1 

1500 FOR ZZ=1T08;READ BI ; S$=S$+CHR$ ( 
SI) ;NEXT 11 

1510 BPRITE* (TT) =S*; S^=" " ; NEXT TT;VP 
OKE6915, 15 

1520 CY=0;CX=0; VPDKE 6912, CY; VPDKE69 
13, CX 

1530 I I$=INKEY$; IF II$=""THEN 1530 
1540 II=ASC(II$) 

1550 IF II=1THEN I 1= ( ABC ( INKEY^) -64) 
:GOTO 1700 

1560 IF II >27 AND IK32THEN ON (11-27 

) GOTO 1 590 , 1 600 ,1610,1 620 

1570 IF II=24THEN GOTO 1760 

1580 GOTO 1630 

1590 CX=CX+4; GOTD1720 

1600 CX=CX-4:GOTO1720 

1610 CY=CY-8;GOTO1730 

1620 CY=CY+8; GOTO 1730 

1630 IF II=8THEN BOSUB 1940 

1640 IF II=9THEN CX=CX+32; GOTO 1720 

1650 IF 11=18 THEN 1530 

1660 IF II=11THEN GOSUB 1960 


1670 IF II=13THEN GOSUB 1970 
1680 IF II=12THEN GOSUB 1980 
1690 IF II=27THEN RETURN 
1700 U=USR(II) 

1710 CX=VPEEK(6913) ;CY=VPEEK(6912) ; I 
F IIO0 THEN CX=CX+4 

1720 IF CX>252THEN CX=CX-256; CY=CY+8 
ELSE IF CX<0THEN CX=252; CY=CY-8 
1730 IF CY>184THEN CY=184 ELSE IF CY 
<0THEN CY=0 

1740 IF II >27 AND IK32THEN 1 1 $=*■’■ 
1750 PUT SPRITE0, (CX,CY) ,PEEK(?<HF07F 
)\ 16; GOTO 1530 

1760 PUT SPRITE0, (CX,209) ,PEEK(&HF07 
F) \ 16; PUT BPRITEi, (CX , CY) , PEEK (8<HF07 
F)\16 
1770 SE=1 

1780 IJ$=INKEY*; IF IJ$=""THEN 1780 

1790 IF ABC (IJ^) >27 AND ABC(IJ$X32TH 

EN RT=ASC(IJ$) ;ON (RT-27) GOTO 1840, 

1810,1820,1830 

1800 goto' 1850 

1810 CX=CX-l;GOTO 1910 

1820 CY=CY-l;GOTO 1910 

1830 CY=CY+l;BOTO 1910 

1840 CX=CX+l;GOTO 1900 

1850 IF ASC( IJ«) 024THEN 1870 

1860 CX= (CX\4) *4: CY= (CY\8) »B; BE=0; VP 

0KE69 1 6 , 209 ; GOTO 1 750 

1870 IF ASC(IJ^) >27AND ASC(IJ$X32TH 

EN GOTO 1780 

1880 IF ASC(IJ$)=83THEN PSET(CX,CY+1 
) ,PEEK(8<HF07F) \16 

1890 IF ASC(IJ^)=87THEN PRESET (CX,CY 
+ 1 ) 

1900 IF CX>255THEN CY=CY+1;CX=0 
1910 IF CX<0THEN CX=255; CY=CY-1 
1920 IF CY>191THEN CY=191 ELSE IF CY 
<0THEN CY=0 

1930 PUT SPRITEl, (CX,CY) , (PEEK(fcHF07 
F)\16);G0T0 1780' 

1940 CX=CX-4;IF CX<0THEN CY=CY-B;CX= 
CX AND 255; IF CY<0THEN CY=0 
1 950 11=0; VPDKE 69 1 2 , CY ; VP0KE69 1 3 , CX ; 
RETURN 1700 

1960 CX=0:CY=0; RETURN 1750 
1970 CX=0;CY=CY+8; RETURN 1730 
1980 CX=0;CY=0;CLB; RETURN 1750 
1990 BEEP;U=USR1 (1) 

2000 FOR DF=0TO5;POKE &HD7B9+DF, ASC ( 
MID^(DF$,DF+1, 1) ) ;NEXT DF; BSAVE"CAB; 

" +LEFT^ ( i)F^ , 1 ) , &HD7B9 , 8<HEFBE ; VP0KE69 
16,209 

20 i 0 U=USR2 ( 1 ) ; BBAVE " CAS ; " , ?<HD7B9 , 8<H 
EFBE; RETURN 1470 

2020 CLEAR;BCREEN0;LINE INPUT "GEEF N 
AAM VAN DE TE LADEN PAGINA; " ; PA 

$;IF LEN(PA$) >6THEN CLS;GOTD 2020' EL 
SE PA«=PA$+SPACE^ (6-LEN (PA$) ) : SCREEN 
2 

2030 BLOAD"CAS; "+LEFT$ (PA$, 1 ) ; FOR DF 
=0TO 5 ; DF^=DF*+CHR$ ( PEEK ( &HD7B9+DF ) ) 
;NEXT DF; IF DF$OPA$THEN DF$="";GOTO 
2030 

2040 U=USR 1(0); BLO AD " CAS ; " ; U=USR2 ( 0 ) 

2050 GOTO 1470 

2060 RETURN 1390 

2070 REM BACKGR COLDR 

2080 IF SE THEN RETURN 1780 

2090 CL=PEEK(8<HF07F) AND 15 

2 1 00 CL=CL+ 1 ; I F CL > 1 5THENCL=CL- 1 6 

2110 POKE?tHF07F , ( PEEK ( 8<HF07F ) AND 240 

)+CL 

2120 SP=8* (CX\8)+32*CY;F0R Z=0TO 5;V 
PDKE SP+Z+S192,PEEK(8<HF07F) ;NEXT Z 
2130 RETURN 1530 
2140 REM FOREGR COLOR 
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!f!É^UoVo‘'?J20^^^'’ PSET(CX,CY-. 

2160 CL=PEEK(8<HF07F) \16 

CL=CL+1;IF CL>15THEN CL=CL-16 

2190 SP=8Hc(CX\8)+32*CY:F0R 
SP+Z+8192, PEEK (&HF07F) 

RETURN 1530 
U=USR3 < 0 ) ; RETURN 1 860 
POKEï<HF07F, <PEEK (?<HF07F) AND 15) 


POKE 

2200 

2210 

2220 


Z=0TO 

iNEXT 


V 


+ 1 6 * CL ; VPDKE69 1 9 , CL s RETURN 1 780 


Regel; 2190 - 147 
Regel; 2200 - 187 
Regel; 2210 - 216 
Regel; 2220 - 161 
Totaal : 26343 


VLAGGEN-QUIZ 



Beeldscherm; WIDTH 36 


CORTROLETELLIHB 
Regel; 10 - 58 
Regel; 20 - 58 
Regel; 30 - 58 
Regel; 40 - 58 
Regel; 50 - 58 
Regel; 60 - 58 
Regel; 70 - 58 
Regel; 80 - 22 
Regel; 90 - 0 

Regel; 100 - 53 
Regel; 110 - 61 
Regel; 120 - 119 
Regel; 130-111 
Regel; 140 - 221 
Regel; 150 - 244 
Regel; 160 - 34 
Regel; 170 - 244 
Regel; 180 - 0 

Regel; 190 - 19 
Regel; 200 - 240 
Regel; 210 - 21 
Regel; 220 - 85 
Regel; 230 - 26 
Regel; 240 - 95 
Regel; 250 - 16 
Regel; 260 - 66 
Regel; 270 - 223 
Regel; 280 - 62 
Regel; 290 - 0 

Regel; 300 - 0 

Regel; 310 - 210 
Regel; 320 - 209 
Regel; 330 - 208 
Regel; 340 - 49 
Regel; 350 - 95 
Regel; 360 - 24 
Regel; 370 - 211 
Regel; 380 - 235 
Regel; 390 - 194 
Regel; 400 - 194 
Regel; 410 - 194 
Regel; 420 - 223 
Regel; 430 - 38 
Regel; 440 - 76 
Regel; 450 - 195 
Regel; 460 - 189 
Regel; 470 - 76 
Regel; 480 - 81 
Regel; 490 - 25 
Regel; 500 - 20 
Regel; 510 - 20 
Regel; 520 - 20 
Regel; 530 - 190 
Regel; 540 - 212 
Regel; 550 - 162 
Regel; 560 - 240 
Regel; 570 - 0 

Regel; 580 - 76 
Regel; 590 - 210 
Regel; 600 - 202 
Regel; 610 - 147 
Regel; 620 - 71 
Regel; 630 - 149 
Regel; 640 - 240 
Regel; 650 - 34 
Regel; 660 - 34 
Regel; 670 - 34 
Regel; 680 - 34 
Regel; 690 - 211 
Regel; 700 - 200 
Regel: 710 - 21 
Regel; 720 - 210 


Regel; 730 - 207 
Regel; 740 - 73 
Regel: 750 - 0 

Regel; 760 - 21 
Regel; 770 - 211 
Regel; 780 - 200 
Regel; 790 - 21 
Regel; 800 - 210 
Regel; 810 - 207 
Regel; 820 - 73 
Regel; 830 - 0 

Regel; 840 - 149 
Regel; 850 - 232 
Regel; 860 - 18 
Regel; 870 - 18 
Regel; 880 - 18 
Regel; 890 - 18 
Regel: 900 - 211 
Regel; 910 - 200 
Regel; 920 - 21 
Regel; 930 - 210 
Regel; 940 - 207 
Regel; 950 - 73 
Regel; 960 - 0 

Regel; 970 - 21 
Regel; 980 - 211 
Regel; 990 - 200 
Regel: 1000 - 21 
Regel; 1010 - 210 
Regel; 1020 - 207 
Regel; 1030 - 0 

Regel; 1040 - 203 
Regel; 1050 - 79 
Regel; 1060 - 210 
Regel; 1070 - 210 
Regel; 1080 - 255 
Regel; 1090 - 197 
Regel; 1100 - 87 
Regel; 1110 - 79 
Regel; 1120 - 206 
Regel; 1130 - 189 
Regel; 1140 - 188 
Regel; 1150 - 4 

Regel; 1160 - 204 
Regel! 1170 - 205 
Regel; 1180 - 206 
Regel; 1190 - 212 
Regel; 1200 - 0 

Regel; 1210 - 104 
Regel; 1220 - 142 
Regel; 1230 - 102 
Regel; 1240 - 87 
Regel: 1250 - 77 
Regel; 1260 - 251 
Regel; 1270 - 23 
Regel; 1280 - 116 
Regel: 1290 - 123 
Regel: 1300 - 20 
Regel; 1310 - 33 
Regel; 1320 - 232 
Regel; 1330 - 144 
Regel; 1340 - 78 
Regel; 1350 - 159 
Regel; 1360 - 117 
Regel; 1370 - 178 
Regel; 1380 - 58 
Regel; 1390 - 148 
Regel; 1400 - 45 
Regel; 1410 - 1 

Regel: 1420 - 190 
Regel; 1430 - 8 

Regel; 1440 - 36 
Regel: 1450 - 46 


Regel; 1460 - 43 
Regel; 1470 - 174 
Regel: 1480 - 184 
Regel; 1490 - 53 
Regel; 1500 - 177 
Regel; 1510 - 55 
Regel; 1520 - 143 
Regel; 1530 - 102 
Regel; 1540 - 28 
Regel; 1550 - 183 
Regel; 1560 - 123 
Regel; 1570 - 234 
Regel; 1580 - 27 
Regel; 1590 - 186 
Regel; 1600 - 187 
Regel: 1610 - 203 
Regel; 1620 - 202 
Regel; 1630 - 149 
Regel; 1640 - 52 
Regel; 1650 - 116 
Regel; 1660 - 170 
Regel; 1670 - 182 
Regel; 1680 - 191 
Regel; 1690 - 222 
Regel; 1700 - 4 

Regel; 1710 - 57 
Regel; 1720 - 53 
Regel; 1730 - 65 
Regel; 1740 - 255 
Regel; 1750 - 36 
Regel; 1760 - 231 
Regel; 1770 - 153 
Regel; 1780 - 99 
Regel; 1790 - 130 
Regel; 1800 - 248 
Regel; 1810 - 151 
Regel; 1820 - 153 
Regel; 1830 - 152 
Regel; 1840 - 140 
Regel; 1850 - 169 
Regel; 1860 - 72 
Regel; 1870 - 219 
Regel: 1880 - 180 
Regel; 1890 - 16 
Regel; 1900 - 59 
Regel; 1910 - 62 
Regel; 1920 - 79 
Regel; 1930 - 113 
Regel; 1940 - 148 
Regel; 1950 - 48 
Regel; 1960 - 67 
Regel; 1970 - 196 
Regel! 1980 - 28 
Regel; 1990 - 144 
Regel; 2000 - 21 
Regel; 2010 - 92 
Regel: 2020 - 99 
Regel: 2030 - 214 
Regel; 2040 - 195 
Regel; 2050 - 122 
Regel; 2060 - 47 
Regel; 2070 - 0 

Regel; 2080 - 19 
Regel; 2090 - 20 
Regel; 2100 - 136 
Regel; 2110 - 135 
Regel; 2120 - 147 
Regel; 2130 - 187 
Regel; 2140 - 0 

Regel; 2150 - 136 
Regel; 2160 - 251 
Regel; 2170 - 168 
Regel: 2180 - 179 


10 ’******#*»»***♦*****»##»#***** 

20 •# VLAGGEN-OUIZ * 

30 * 

tfi p * Schouwenaars Apeldoorn * 

‘ 3|C . 

60 =•» (c)1987 MSX Gids Amsterdam * 
70 '♦♦♦#******#********)|[**)|c*)|c#)|t#* 

80 

90 COLDR 15, 1 , 3; SCREEN2 
100 DPEN "GRP: "AS#1 
110 ZZ=RND (-TIME) 

120 DEFUGR 1=342 

NT$(32) ,VC(32),C1 (32) ,C2(32) 

,Co<(,i2) 

140 GOSUB 2240 


150 

160 

170 

180 

190 

200 

210 

IZ" 

220 

IZ" 

230 

240 

250 

260 

270 

280 

290 

300 

310 

320 

330 

340 

350 

360 

370 


, 1 

,1 


3,B 


CLS:COLOR 11 
LINE(0,0)-(255, 191) 

LINE (1,1) - (254, 190) 
LINE(20,5)-(127, 15) , 13 
LINE (140, 5) -(212, 35) , 13, B 
PRESET ( 23 , 7 ) : PR I NT# 1 , " VL AGGENDU 

PRESET ( 24 , 7 ) ; PR I NT# 1 , " VL AGGENQU 
COLDR 3 

PRESET ( 1 43 , 7 ) : PR I NT# 1 , " GOED ; " 
PRESET ( 144, 7) ; PRINT#1 , " GOED:" 
COL.OR 8 

PRESET (143,23) :PRINT#1, " FOUT: " 
PRESET (144,23) ; PRINT#1 , " FOUT: " 
COLOR 1 1 


SG=0;SM=0:Q=0 
FDR Q=1 TO 10 
GOSUB 440;V1=VL 
GOSUB 440 

IP VL=V1 THEN 340 ELSE V2=VL 
GOSUB 440 

VL=V1 OR VL=V2 THEN 360 ELSE 

Vo«-~VL 

380 ON VC(Vl) GOSUB 630,720,810.1030 
, 1090,1170, 1270, 1390, 1470 ’ ’ 

390 GOSUB 1660 ' 

GOSUB 490 

LINE (15, 38) -(207, 151) , 1,BF 

NEXT Q . !> !. 

GOTO 2140 

VL=INT(RND(1) *32)+l 
RETURN 


400 

410 

420 

430 

440 

450 

460 

470 

480 

490 

500 

510 

520 

530 

540 

550 

560 

570 

580 


score 


LINE (187, 7) -(207, 33) , 1 , BF 
LINE(187, 159)-(199, 175) , 1,BF 

COLOR 3 

< 167,7) , 1 ;PRINT#1 ,SG 
PRESET (188,7) , 1:PRINT#1,SG 
COLOR 8 ’ 

PRESET (187,23) , 1:PRINT#1,SM 
PRESET (188, 23) , 1 ; PRINT#1 , SM 
COLDR 1 1 ’ 

RETURN 
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590 

600 

610 

620 

630 

640 



’ < 1 > 

Xl=87s X2=175s Yl=39: Y2=55 
KL=C 1 < V 1 ) ï GOSUB 1 540 


650 Yl=56: Y2=71:KL=C2(V1) 

660 GOSUB 1540 

670 Yl=72: Y2=B7!KL=C3<V1) 

680 GOSUB 1540: GOSUB 1570 

690 IF NT$(V1)= LAOS" THEN R=7:KL=15 

;GOSUb 1600 

700 RETURN 

710 ' <2> 

720 X1=95;X2=119; Y1=39:Y2=103 
730 KL=C1 (VI ): GOSUB 1540 
740 Xl=120; X2=143;KL=C2(V1) 


750 GOSUB 1540 

760 Xl==144: X2=167:KL=C3(V1) 

770 GOSUB 1540 

780 LINE(95,38)-(168, 104) , 13,B 

790 RETURN 

800 =• <3*1> 

810 Xl=87: X2=175; Yl=39: Y2=87 


820 KL=C1 (VI) -.GOSUB 1540 

830 IF NT$ (VI )="F INLAND" THEN 930 

840 X2=l 15; Y2=60:KL=C2(V1 ) 

850 GOSUB 1540 

860 X 1=124; X2=175; GOSUB 1540 

870 X1=87;X2=115;Y1=68:Y2=87 

880 GOSUB 1540 

890 X 1=124: X2=175 

900 GOSUB 1540; GOSUB 1570 

910 RETURN 

920 ’ <3‘2> 

930 X 2=111; Y2=55 
940 KL=C2 (VI ); GOSUB 1540 
950 Xl=127; X2=175 
960 GOSUB 1540 

970 X1=87;X2=111;Y1=71;Y2=87 

980 GOSUB 1540 

990 Xl=127; X2=175 

1000 GOSUB 1540; GOSUB 1570 

1010 RETURN 

1020 =■ <4> 

1030 XI =87; X2=175: Yl=39; Y2=63 
1040 KL=C1 (VI ): GOSUB 1540 
1050 Yl=64; Y2=87:KL=C2(V1) 

1060 GOSUB 1540: GOSUB 1570 
1070 RETURN 
1080 ’ <5> 

1090 XI =87: X2=175: Yl=39; Y2=51 
1 1 00 KL=C 1 ( V 1 ) : GOSUB 1 540 
1110 Yl=52; Y2=75;KL=C2(V1) 

1120 GOSUB 1540 

1130 Yl=76: Y2=S7;KL=C3(V1) 

1140 GOSUB 1540: GOSUB 1570 
1150 RETURN 


1160 =■ <6> 

1170 X1=87:X2=175; Y1=39;Y2=51 
1 1 80 KL=C 1 ( V 1 ) ; GOSUB 1 540 
1190 Yl=52: Y2=63;KL=C2(V1) 

1200 GOSUB 1540 

1210 Yl=64; Y2=75;KL=C3(V1 ) 

1220 GOSUB 1540 
1230 Yl=76; Y2=87;KL=12 
1240 GOSUB 1540: GOSUB 1570 
1250 RETURN 
1260 •' =7= 

1270 Xl=87; X2=175; Yl=39; Y2=47 
1280 KL=C1 (VI ); GOSUB 1540 
1 290 Y 1 =48 ; Y2=55 ; KL=C2 ( V 1 ) 

1300 GOSUB 1540 

1310 Y1=56;Y2=71;KL=C3(V1) 

1320 GOSUB 1540 

1330 Yl=72; Y2=79;KL=C2(V1 ) 

1340 GOSUB 1540 

1350 Yl=80; Y2=87;KL=C1 (VI) 

1360 GOSUB 1540: GOSUB 1570 
1370 RETURN 
1380 ’ <8> 

1390 X1=87:X2=119; Y1=39:Y2=87 
1400 KL=C1 (VI ): GOSUB 1540 
1410 Xl=120: X2=175: Y2=63 
1420 KL=C2 (VI ); GOSUB 1540 
1430 Yl=64; Y2=87:KL=C3(V1 ) 

1440 GOSUB 1540; GOSUB 1570 
1450 RETURN 
1460 ’ <9> 

1470 Xl=87: X2=175; Yl=39; Y2=87 
1480 KL=C1 (VI) ; GOSUB 1540 
1490 R=14;KL=8; GOSUB 1600 
1500 RETURN 
1510 =• I 

I 520 ’| tekenen 1 vlakl 
1530 =• I ' 

j 

1540 LINE(X1,Y1)-(X2,Y2) ,KL,BF 
1550 RETURN 
1560 ’ 

1570 LINE(87,39)-(176,88) , 13, B 
1580 RETURN 
1590 •' 

1600 CIRCLE(133,64) ,R,KL 
1610 PAINT(133,64) ,KL' 

1620 RETURN 

1630 ’ [ 

1640 ■’ I keuze/ antwoord I 
1650 ’ I ' 

j 

1660 PB=INT(RND(l)*3)+l 
1670 IF PB=1 THEN A=V1 : B=V2: C=V3 
1680 IF PB=2 THEN A=V2; B=V1 ; C=V3 
1690 IF PB=3 THEN A=V2: B=V3; C=V1 
1700 PRESET (15,111),! 

1710 PRINT#1, "■ A) ":NT$(A) 

1720 PRESET (15, 127) , 1 
1730 PRINT#1, "■ B) "-,NT^(B) 

1 740 PRESET (15,143),! 

1750 PRINT#1, "■ C) ";NT$(C) 

1 760 PRESET ( 63 , 1 67 K 1 

1770 PRINT#1, "■ GEEF' UW KEUZE;" 

1780 U=USR 1(0): PRESET (183,167),!: PL A 
Y"V1205L16F" 

1790 K4=INPUT$(1) 

1800 IF K$="A" OR K*="B" OR K$="C" T 
HEN 1830 

1810 PLAY "V1203L64B" 

1820 GOTO 1780 
1830 PRINT#1," 

1840 PRESET (184, 167) , 1 
1850 PRINT#1," "-,K$ 

1860 IF K$="A" AND PB=1 THEN 2040 
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1870 

1880 

1870 

1900 

1910 

1920 

1930 


IF 

IF 


K$="B" 

K*="C" 


AND 

AND 


PB=2 THÈN 
PB=3 THEN 


2040 

2040 


•fout 


TG 0 STEP 1 

)2,245;S0UND4,21 


FOR FG=15 
SOUND0,: 

5!B0UND11,222!S0UND13, 14 

1940 SOUNDS , FG s S0UND9 , FG : SOUND 1 0 , FG 

1950 NEXT 

1960 IF PB=1 THEN LINE (15, 127) - ( 159, 
155) , 1 ,BFsGOTD 1990 

1970' IF PB=2 THEN LINE ( 15, 1 1 1 ) - ( 159, 
126) , 1,BF:LINE(15, 143) -(159, 151) , 1,B 
F: GOTO' 1990 

1980 LINE(15, 111)-(159, 140) , 1 , BF 
FOR W=0TD 500: NEXT 
SM=SM-<-l:GOTO 2100 


1990 

2000 

2010 

2020 

2030 


goed 


2040 FOR GG=15 TO 0 STEP -.25 
2050 SOUND0, GG* 12; S0UND2, GG*1 1 : SOUND 
4 , GG*1 5 ; S0UND6 , GG : SOUND 11,00*12; BOUN 
D i 3 10 

2060 " SOUNDS , GG : S0UND9 , GG : SOUND 1 0 , GG 
2070 NEXT 

2080 FOR W=0 TO 300; NEXT 


2090 SG=SG+1 


2100 

2110 

2120 

2130 


RETURN 


ei nde 


2140 LINE (63, 159) -(247, 175) , 1 , BF 
2150 PRESET (7, 159) , 1 

2160 PRINT#!,’’ NOG EEN RONDE? (J/N) " 
2170 PRESET ( 191 , 159) , 1 
2180 K*=INPUT$(i) 

2190 IF THEN PRINT#1," JA" EL 

SE IF K^=’’N’’ THEN PRINT#!,’’ NEE" ELS 

E BEEP;BEEP;GOTO 2140 

2200 FOR W=0 TO 750: NEXT 

2210 IF K$=’’J" THEN 160 

2220 CLS;C0L0R15,4,4;END 

2230 •’ 


2240 

2250 

2260 

2270 

2280 

2290 

2300 

2310 

2320 

2330 

2340 

2350 

2360 

2370 

2380 

2390 

2400 

2410 

2420 

2430 

2440 

2450 

2460 

2470 

2480 

2490 

2500 

2510 

2520 

2530 

2540 

2550 

2560 


FOR EL=1 TO 32 
READ N$:NT$(EL)=N$ 

RE AD KV;VC(EL)=KV 
READ K1;C1(EL)=K1 
READ K2:C2(EL)=K2 
READ K3;C3(EL)=K3 
NEXT 
RETURN 

DATA ARGENTINIË, 1,7, 15,7 
DATA BOLIVIA, 1,8, 10,2 
DATA BONDBREPUBL ï EK , 1 , 1 , 8 , 1 0 
DATA ETHIOPIË, 1,2, 10,8 
DATA GABON, 1 ,2, 10,4 
DATA HONGARIJE, 1 ,8, 15,2 
DATA LUXEMBURG, i;e; 15,7 
DATA NEDERLAND ,1,8,15,4 
DATA OOSTENRIJK, 1,8, 15,8 
DATA OPPER VOLTA, 1,1,15,8 
DATA SIËRRA LEONÈ, 1 , 2, 15, 4 
DATA LAOS, 1,8, 4, 8 
DATA BELGÏE,2, 1, 10,8 
DATA FRANKRIJK, 2, 4, 15,8 
DATA GUINEE, 2, 8, 10,2 
DATA ITALIË, 2, 2, 15^8 
DATA MALIE, 2, 12, 10;B 
DATA NIGERIA, 2, 2, 15,2 
DATA TSJAAD, 2, 4, 10,8 
DATA DENEMARKÈN, 3,15,8,0 
DATA ZWEDEN, 3, 10,4,0 
DATA FINLAND, 3, 4, 15,0 
DATA MONACO, 4, 8, 15,0 
DATA POLEN, 4, '15,8,0 


2570 DATA SAN MARINO, 4, 15, 4, 0 
2580 DATA SPANJE, 5, 8' 10, 8' 

2590 DATA MAURITIUS, 6, B' 4, 10 
2600 DATA COSTA RI CA, 7, 4, 15, 8 
2610 DATA THAILAND, 7 ; B; 15,4' 

2620 DATA DAHOMEY, 8, 12, 10; 8 
2630 DATA MAL AG AS 18,8,15,8,12 
2640 DATA JAPAN, 9, 15, 0, 0' 

2650 ' 

2660 =■======= EINDE LIST ING ======= 


COMTROLETELL1N6 Regel 
Regel! 10 - 58 Regel 
Regel! 20 - 58 Regel 
Regel! 30 - 58 Regel 
Regel! 40 - 58 Regel 
Regel! 50 - 58 Regel 
Regel! 60 - 58 Regel 
Regel: 70 - 58 Regel 
Regel! 80 - 58 Regel 
Regel! 90 - 139 Regel 
Regel! 100 - 0 Regel 
Regel! 110 - 56 Regel 
Regel! 120 - 232 Regel 
Regel! 130 - 148 Regel 
Regel! 140 - 131 Regel 
Regel! 150 - 58 Regel 
Regel! 160 - 208 Regel 
Regel: 170 - 79 Regel 
Regel! IBO - 79 tegel 
Regel: 190 - 54 Regel 
Regel! 200 - 23 tegel 
Regel: 210 - 91 Regel 
Regel: 220 - 92 Regel 
Regel! 230 - 241 Regel 
Regel! 240 - 250 Regel 
Regel! 250 - 224 Regel 
Regel! 260 - 246 Regel 
Regel! 270 - 250 Regel 
Regel! 280 - 13 Regel 
Regel! 290 - 247 Regel 
Regel! 300 - 58 tegel 
Regel! 310 - 255 Regel 
Regel! 320 - 38 tegel 
Regel! 330 - 198 Regel 
Regel! 340 - 116 tegel 
Regel: 350 - 116 Regel 
tegel! 360 - 116 Regel 
Regel! 370 - 217 Regel 
Regel! 380 - 94 tegel 
Regel! 390 - 61 Regel 
Regel! 400 - 166 tegel 
Regel: 410 - 100 Regel 
Regel! 420 - 244 tegel 
Regel: 430 - 27 Regel 
tegel! 440 - 117 Re^l 
Regel! 450 - 142 Regel 
Regel! 460 - 58 Regel 
Regel! 470 - 58 Regel 
Regel! 480 - 58 Regel 
Regel: 490 - 125 Regel 
Regel! 500 - 153 Regel 
Regel! 510 - 241 Regel 
Rewl! 520 - 38 tegel 
Regel: 530 - 39 Regel 
Regel! 540 - 246 tegel 
Regel! 550 - 58 Regel 
Regel! 560 - 59 Regel 
Regel! 570 - 247 Regel 
Regel; 580 - 142 tegel 
Regel! 590 - 58 Regel 
Regel: 600 - 58 tegel 
Regel! 610 - 58 Regel 
Regel! 620 - 58 te^l 
Regel! 630 - 50 Regel 
Regel! 640 - 209 tegel 
Regel! 650 - 215 Regel 
Regel! 660 - 197 Regel 
Regel: 670 - 248 Regel 
Regel! 680 - 226 tegel 
Regel! 690 - 55 Regel 
Regel! 700 - 142 Regel 
Regel! 710 - 58 Regel 
Regel! 720 - 50 tegel 
Regel: 730 - 209 Regel 
Regel! 740 - 193 tegel 
Regel! 750 - 197 Regel 


760 

- 

142 

tegel 

1520 

- 

58 

770 

- 

197 

Regel 

1530 

- 

58 

780 

- 

34 

Regel 

1540 

- 

58 

790 

- 

142 

Regel 

1550 

- 

142 

800 

- 

58 

Regel 

1560 

- 

58 

810 

- 

82 

Regel 

1570 

- 

19 

820 

- 

209 

Regel 

1580 

- 

142 

830 

- 

69 

Regel 

1590 

- 

58 

840 

- 

7 

tegel 

1600 

- 

93 

850 

- 

197 

Regel 

1610 

- 

226 

860 

- 

115 

Regel 

1620 

- 

142 

870 

- 

51 

Regel 

1630 

- 

58 

880 

- 

197 

tegel 

1640 

- 

58 

890 

- 

116 

Regel 

1650 

- 

58 

900 

- 

226 

tegel 

1660 

- 

74 

910 

- 

142 

Regel 

1670 

- 

247 

920 

- 

58 

Regel 

1680 

- 

248 

930 

- 

241 

Regel 

1690 

- 

249 

940 

- 

210 

Regel 

1700 

- 

26 

950 

- 

119 

Regel 

1710 

- 

83 

960 

- 

197 

tegel 

1720 

- 

42 

970 

- 

50 

Regel 

1730 

- 

85 

980 

- 

197 

tegel 

1740 

- 

68 

990 

- 

119 

Regel 

1750 

- 

87 

1000 

- 

226 

tegel 

1760 

- 

130 

1010 

- 

142 

Regel 

1770 

- 

23 

1020 

- 

58 

tegel 

1780 

- 

62 

1030 

- 

58 

Regel 

1790 

- 

106 

1040 

- 

209 

Regel 

1800 

- 

26 

1050 

- 

239 

Regel 

1810 

- 

88 

1060 

- 

226 

Regel 

1820 

- 

177 

1070 

- 

142 

Regel 

1830 

- 

0 

1080 

- 

58 

Regel 

1840 

- 

251 

1090 

- 

46 

Regel 

1850 

- 

0 

1100 

- 

209 

tegel 

1860 

- 

126 

1110 

- 

215 

Regel 

1870 

- 

128 

1120 

- 

197 

tegel 

1880 

- 

130 

1130 

- 

252 

Regel 

1890 

- 

58 

1140 

- 

226 

tegel 

1900 

- 

58 

1150 

- 

142 

Regel 

1910 

- 

58 

1160 

- 

58 

Regel 

1920 

- 

225 

1170 

- 

46 

Regel 

1930 

- 

9 

1180 

- 

209 

Regel 

1940 

- 

55 

1190 

- 

203 

Regel 

1950 

- 

131 

1200 

- 

197 

Regel 

1960 

- 

167 

1210 

- 

228 

Regel 

1970 

- 

39 

1220 

- 

197 

tegel 

1980 

- 

114 

1230 

- 

201 

Regel 

1990 

- 

224 

1240 

- 

226 

tegel 

2000 

- 

95 

1250 

- 

142 

Regel 

2010 

- 

58 

1260 

- 

58 

Regel 

2020 

- 

58 

1270 

- 

42 

Regel 

2030 

- 

58 

1280 

- 

209 

tegel 

2040 

- 

247 

1290 

- 

191 

Regel 

2050 

- 

97 

1300 

- 

197 

Re^l 

2060 

- 

58 

1310 

- 

216 

Regel 

2070 

- 

131 

1320 

- 

197 

Regel 

2080 

“ 

24 

1330 

- 

239 

Regel 

2090 

- 

38 

1340 

- 

197 

tegel 

2100 

- 

142 

1350 

- 

254 

Regel 

2110 

“ 

58 

1360 

- 

226 

Regel 

2120 

- 

58 

1370 

- 

142 

Regel 

2130 

- 

58 

1380 

- 

58 

Regel 

2140 

- 

77 

1390 

- 

26 

Regel 

2150 

- 

68 

1400 

- 

209 

tegel 

2160 

- 

65 

1410 

- 

114 

Regel 

2170 

- 

250 

1420 

- 

210 

tegel 

2180 

- 

106 

1430 

- 

240 

Regel 

2190 

- 

186 

1440 

- 

226 

Regel 

2200 

- 

219 

1450 

- 

142 

Regel 

2210 

- 

95 

1460 

- 

58 

te^l 

2220 

- 

241 

1470 

- 

82 

Regel 

2230 

- 

58 

1480 

- 

209 

tegel 

2240 

- 

124 

1490 

- 

114 

Regel 

2250 

- 

92 

1500 

- 

142 

tegel 

2260 

- 

141 

1510 

- 

58 

Regel 

2270 

- 

30 
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Regel; 2280 - 33 
Regel! 2290 - 36 
Regel: 2300 - 131 
Regel: 2310 - 142 
Regel! 2320 - 58 
Regel! 2330 - 63 
Regel: 2340 - 86 
Regel: 2350 - 104 
Regel: 2360 - 167 
Regel! 2370 - 179 
Regel! 2380 - 236 
Regel: 2390 - 21 
Re^l: 2400 - 228 
Regel: 2410 - 99 
Regel: 2420 - 128 
Regel! 2430 - 170 
Regel! 2440 - 88 
Regel; 2450 - 248 
Regel: 2460 - 250 
Regel: 2470 - 14 
Regel! 2480 - 14 
Regel: 2490 - 234 


Regel: 2500 - 79 
Regel: 2510 - 10 
Regel: 2520 - 47 
Regel: 2530 - 25 
Regel! 2540 - 77 
Regel! 2550 - 19 
Regel! 2560 - 212 
Regel! 2570 - 26 
Regel: 2580 - 27 
Regel: 2590 - 26 
Regel: 2600 - 22 
Regel; 2610 - 162 
Regel! 2620 - 143 
Regel: 2630 - 17 
Regel: 2640 - 189 
Regel: 2650 - 58 
Regel! 2660 - 58 
Totaal: 32456 


LUCIFER SPEL 



10 =• ****** *#)(!*■»* *•*•***# 
20’* LUCIFERSPEL * 
30 ’ * * 

40 •' * Ad Schouwenaars Apeldoorn * 

50 ■’ * * 

60 ’* (c)19S7 MSX Gids Amsterdam * 

70 '*************************#**** 
80 •’ 

90 KEYOFF : COLOR 11,1,10 
100 DEFL.ISR 1=342 


110 L«=" LUCIFERSPEL" 

120 HOEVEEL NEEM JIJ ER?" 

130 I$=" IK NEEM ER DAN " 

140 V$=" HELA, NIET VALS SPELEN!" 

150 S*=" PROFICIAT, IK BEN VERSLAGEN 


160 C$=" MSX IS DE WINNAAR" 

170 NS=” NOG EENS?" 

180 T$=" AANWEZIG LUCIFERS" 

1 90 SCREEN2 5 OPEN " GRP : " AS# 1 : U=USR 1 ( 0 
) 

200 C0L0R6 

210 PSET(31,60) , 1:PRINT#1,L$ 

220 PSET<32,60) , l:PRINT#l' L* 

230 PSET(31,61) , l:PRINT#liL$ 

240 PSET (32,61 ), 1:PRINT#1,L$ 

250 COLOR 11' 

260 PSET ( 7 , 1 1 9 ) , 1 : PR I NT# 1 , " SPELREGEL 
S ZIEN? (J/N) " 

270 PSET (191, 119) , 1: A*=INPUT$(1) 


280 IF A«="J" OR A$="j" THEN PRINT#1 
," JA" ELSE PRINTttl," NEE" 

290 FOR W=0 TO 500:NEXT 
300 LINE(7, 119)-(255, 127) , 1,BF 
310 IF A$="J" OR A$="j" THEN GOSUB 7 
60 

320 •' 

330 AL=0 : X 1 =0 : X2=2 1 5 
340 LINE(114,75)-(130,83) , 1 , BF 
350 GOSUB 620 
360 GOSUB 1080 

370 PSET(31, 119) , 1:PRINT#1, J$ 

380 PSET(32, 119) , l:PRINT#i; J$ 

390 B0UND7,63:F0R W=1 TO 6:SOUND0,15 
05 S0UND7, 60: SOUNDS, 15: NEXT 
400 SOUNDS, 0 
410 U=USR1(0) 

420 PBET( 199, 1 19) , 1 s W$=INPUT$ ( 1 ) :PRI 
NT#1, " ";W$: PSET (200, 119) , 1:PRINT#1, 
" "ïW* ■ 

430 IF VAL(W$)>AL THEN 450 

440 IF W$>"0" AND W$<"4" THEN AW=VAL 

(W$):GOTO 460 

450 GOSUB 900: GOTO 390 

460 GOSUB 1040 

470 IF AL=1 THEN 1170 

480 IF AL=0 THEN 1280 

490 FOR W=0 TO 500:NEXT 

500 LINE(31 , 1 19) -(255, 127) , 1 , BF 

510 (3=AL-4* INT (AL/4) 

520 IF QOl THEN AW= (Q+3) -4*INT ( (Q+3 
)/4) ELSE AW=INT(RND(1)*3+1) 

530 PSET (71, 143) , 1:PRINT#1, 1$; AW 

540 PSET (72, 143) , 1:PRINT#1, I*“, AW 

550 GOSUB 1040 

560 FOR W=0 TO 100:NEXT 

570 LINE(79, 143) -(255, 151) , 1,BF 

580 GOTO 370 

590 •’ I 

60^J ’ [luciters tekenen! 

610 =• I I 

620 Y=19 

630 LINE(108,69)-(134,88) ,9,B 
640 FOR X=35T0 211 StEP 8 
650 SOUND0, X+40;SOUND6, 15: S0UND13, 0: 
SOUNDS, 8 

660 CIRCLE(X, Y) ,4,6, , , 1 . 8: PAINT ( X , Y) 

,6:PAINT(X, Y) ,6 

670 LINE(X-1,24)-(X+1,55) , 15,BF:AL=A 
L+1 

680 LINE(114,75)-(130,83) , 1 , BF 
690 PSET(106;75) , l:PRÏNT#i, ■ USING " 
## " : AL 

700’pSET(107,75) , 1:PRINT#1, USING " 
## " « Al “ NFXT 

710 ’ SOL1ND7 , 63 : SOUNDS , 0 
720 RETURN' 

730 ’ 

740 ’ 

750 •’ 

760 PSET(0,95) , 1:PRINT#1, " Voor je 1 
iggen 23 luci-fere. Je neemt er 1,2 
ot 3 weg, en dan neem i k er 1, 2 o 
■f 3 weg. Dan jij weer, ik weer enz 

if 

770 PSET(0, 127) , 1:PRINT#1, " Wie de 1 
aatste moet wegnemen hee-ft het sp 
el let je verloren!" 

780 COLDR 3 

790 PSET (0, 151) , 1:PRINT#1, " SUC 

CES ! ' '* 

800 ’ PSET ( 1 , 151 ) , 1 ! PRINT#1 , " SUC 

CES ! ! " ■ 

810 COLOR 11 

820 PSET(119, 159) , 1:PRINT#1," Cspati 
ebalkD" 


spel regel s 
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830 A$=INKEY^;IF A$OCHR$(32) THEN B 
840 FOR W=0 TO 100SNEXT 

870 ■' p— 

1 

^ j -foutief wegnemen j 


900 

910 

920 

930 

940 

950 


COLOR 9 
SDUIMD7,63 

PSET (23, 167) , lïPRINT#!, V$ 

PSET (24, 167) , 1:PRINT#1, V$ 

FOR SG=15 TO 0 STEP-.r 
pOUND0,SG*4;SOUNDl,SG*9: S0UND7 

960 FOR W=0 TO 500!NEXT 
970 LINE(23, 167)-(255, 175) , 1,BF 
980 LINE (207, 1 19) ~ (215, 127) i BF 
990 COLOR 11' , 1,BF 

1000 RETURN 

1010 •’ 


Mluci-fers weghalenl 
1030 ’ « — I 


1040 
1050 
1060 
1070 
1080 
1090 
1 1 00 
1110 
##"i 
1120 
##"! 
1 1 30 
1140 
1150 
1160 
1170 
1 180 
1190 
1200 
1210 
1220 
1 230 


X1=X2-(AW*8) 

LINE(X1, 15)~(X2,54) , 1,BF 
X2=XlsAL=AL-AW ' 


PSET (35, 75) , 
PSET (36,75) , 
LINE(114,75) 
PSET (106, 75) 
AL 

PSET (107,75) 
AL 

RETURN 


lsPRINT#l,T$ 
1:PRINT#1,T$ 
“(130,83) , 1,BF 
, l:PRINT#i, UBING 

, 1:PRINT#1, UBING 


speler wint 


?7) , 1,BF 


LI NE (31, 119)- (255, 1 
AW=l:GOSUB 1040 
COLOR 7 

F'BET (8, 167) , 1 : PRINT#1 , 8$ 
PSET (9, 167) , 1;PRINT#1,S$ 
FOR SG=15 TO 0 STEP-. i 

SOUND0,SG*10:SOUND2,SG*12i 
S0UND9, SG: NEXT 

1240 GOTO 1350 
1250 
1260 
1270 
1280 
1290 
1300 
1310 
1320 
1330 


SOUND 


MSX wint 


?55, 127) , 1,BF 


LINE(31, 119) 

COLOR 12 

PSET (16, 167) , 1:PRINT#1,C$ 

PSET (17, 167) , 1 :PRINT#1 , 

FOR SG=0 TO 15 STEP .1' 
y. , SG* 1 0 ! S0UND2 , SG»! 2 : SOUND 

SG^NEXT* ^ SG: S0UND9, 

1 340 SOUNDS , 0 : S0UND9 , 0 
COLOR i 1 

FOR W=0 TO 500; NEXT 

175) , 1,BF 

PSET (6c>, 111) , 1: PRINT#!, N$ 

U=USR1 (0) ’ 

PSET ( 143, 1 1 1 ), 1 ; A$=INPUTt ( 1 ) 

IF A$="J" OR A^="j" THEN PRINT# 
1 , ” JA" ELSE PRINT#1," NEE" 

1420 FOR W=0 TO 500: NEXT 
1430 IF A^=-*J» OR A$="j" THEN LINE(6 
11 1)~(17 j, 119) , 1, BF ; GOTO 330 
1450 15, 4, 4: SCREEN© ; END 

1460 ■'====== EINDE LIST ING ====== 


1350 
1360 
1 370 
1380 
1390 
1 400 
1410 
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870 - 58 
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250 - 58 

- 58 

- 58 

- 221 

- 248 

- 229 

- 230 

- 252 

- 203 

- 111 

- 247 

- 224 

- 240 

- 231 

- 149 

- 249 

- 10 

- 224 

- 185 

- 33 

- 58 

- 58 



MYSTERY TOWER 

Dit is dan de eerste keer dat er een 
adventure bij de listings geplaatst is. 
Het is wel een heel eenvoudig tekst- 
adventure maar toch aardig genoeg om te 
plaatsen. Een nadeel met adventures is, dat 
tijdens het intikken een gedeelte van het 
spel bekend wordt. Diegenen, die het 
adventure willen spelen zouden het 
programma eigenlijk door een ander moeten 
laten invoeren. 

Tijdens het spelen moeten de teksten met 
HOOFDLETTERS ingevoerd worden. De op- 
drachten zitten reeds onder de functie 
toetsen 1 t/m 8. Er is ook nog een schat 
te vinden. Dit is een extra bonus die niet 
noodzakelijk is voor het beëindigen van 
het spel. 

Succes. 


Beeldscherm! WIDTH 36 


10 ' ******* MYSTERY TOWER *»***♦» 
20 =■ *Door: * 

30 •’ *MICHEL JANSSEN, WEBTERVOORT* 
40 =• # * 

50 ' * (0 1987 MBX GIDS AMSTERDAM # 

70 =• 

80 SCREEN0 ! COLOR 1 , 9 , 4 : W I DTH37 ! KE YOFF 
90 L0CATE9, 2: PRINt "MYSTERY TOWER" 

100 PRINT! PRINT 

110 ’ - instrukties - 

1 20 PL AY " V 1 5t 240 1 6 1 200c 4-f3c4-f3e4f4g4 

e5c 6d6c6d6 

130 PRINT" Je bent op vakantie en je 
wilt een oude toren gaan bekijken 
140 PRINT: PRINT" Je trapt de waarschu 
wingsborden om en gaat naar binne 
n 

150 PRINT; PRINT"Eenmaal binnengekome 
n stort de ingang achter je neer 
160 PR INT: PR INT: PR INT" happy ad 

venturing ! ! 

1 70 FORA= 1 T02 : L0CATE6 , 20 

180 IF A=1THENPR INT "DRUK EEN TOETS I 

N " ELSEPR I NTSPACE$ ( 22 ) 

190 FORB=1TO200! IF INKEY$=" "THEN NEX 
T:NEXT:GOTO 170 

200 SCREEN0: COLOR10, 1,1: DEFINTA--Z 
210 ON STOP GOSUB1000!BTOPON 
220 KEYOFFiDIM T* (25) , 1$ (4, 25) , BI$ (2 
5) 

230 S$ ( 1 ) ="vl5t2551 5m6000o3slg3c3d0e 
2e2e2c3c3c3 e2d2c3d0d0d0d0d0d0g3b2 
240 S$ (2) ="d0e2e2e2c3c3c3 e2d2c3d0d0 
d0d0d0d0 g3b2d0 g0g0g0 d0d0d0 F3e2d0 
g3g3g3 c3c3c3r 
250 ’ - intro scherm - 

260 PRINT!PRINT" M-So-ft presents .. 
270 C=S7!Y=6: FOR X=8TD1 2: GOSUB 360 



280 NEXTïFOR X=9TO30i Y=8! GOSUB 360 

290 Y=12! GOSUB 360! NEXT 

300 FOR Y=9T011 : X=9ï C=86: GOSUB 360 

310 X=31: GOSUB 360: NEXT: FOR A=1T09 

320 READX,Y,C! GOSUB 360! NEXT 

330 L0CATÈ7 i 7 ! PR I NTCHR* ( 1 ) CHR* ( 86 ) ; " 

the "!CHR$(1)CHR$(86) 

340 L0CATE14, 10!PRINT"MYSTERY TOWER" 
! GOTO380 

350 ’ - karakter plaatsen — 

360 LOCATE X , Y: PRINTCHR* ( 1 ) CHR$ (C) 
370 RETURN 

380 ’ - set -funktie toetsen - 

390 B$=CHR$(13) !F0R A=1TO10:READ A$ 
400 IF a:>8 THEN B$=" " 

410 KEY A,A$+B$: NEXT 

420 FOR A=lT025:SI$(A)="niets"! NEXT 
430 FOR A=1T06!READ B, B$: SI* (B) =B$! 
NEXT 

440 ’ - lees hoofd tekst - 

450 LOC ATEl ,23! PR INT "THE MYSTERY TOW 

ER (0 1987 MSX Gids "; 

460 STR I G ( 0 ) ON ! ONSTR I GGOSUB500 
470 F0RA=1T02:PLAY S*(A) 

480 IF PLAY(1)THEN 480 
490 NEXT:GOTO470 
500 STRIG(0)OFF:BEEP 

510 F0RA=1T025:READ T* ( A) : : F0RB=1T04 

520 READ I*(B, A) :NEXTB, A!TIME=0! VL=1 

530 ' - hoö-f dprogramma - 

540 KEY ON: COLOR 4,1,1 : CLS 

550 CLS: LOCATE 10, 2: PRINT"the MYSTER 

Y TOWER 

560 LOCATE0 , 4 ! PR I NTSTR I NG* ( 37 , 45 ) ; : P 
RINT 

570 PRINT" Je bent in de ";T*(VD 
580 PRINT: PRINT" Je kunt hier naar " 
590 IF I*(1,VL)="1"THEN PRINT"Noord" 

9 

600 IF I*(2, VL)="1 "THEN PRINT", Oost" 

■ 

610 IF I*(3,VL)="1"THEN PRINT", Zuid" 

■ 

620 IF I*(4, VL)="1"THEN PRINT", West" 

■ 

630 PR I NT : PR I NT : PL AY " v 1 5t 2551 9c " 

640 IF VL=20 THEN PRINT"Een grote de 
ur in het zuiden ,..":PRINT 
650 IF VL=6ANDSI*(6)<>"niets"THENB*= 
"liggen" ELSEB*= "ligt" 

660 PRINT"Er "B*" hier "!SI*(VD 
670 IF VL=12 AND SI* (22) < >"ni ets"THE 
N A*="JE BENT OPGEPEUZELD DOOR THE D 
OG" ! GOTO830 

680 IF VL=11 AND SI* (6) <>"ni ets"THEN 
A*=" GESTRUIKELD EN JE NEK GEBROKEN 
" ! GOTO830 

690 IF VL=24 THEN A*=" KANNIBALEN HEB 

BEN JE OVERVALLEN" :GOTO830 

700 IF VL=8 THEN A*="DE LEEUWEN SCHE 

UREN JE AAN STUKKEN" : GOTO830 

710 PRINT: PRINT"Wat zal ik doen ?" 

720 PR I NT : L I NE I NPUT " > " ï A* : PR I NT 

730 IF A*=" NOORD "AND I* ( 1 , VL) =" 1 "THE 

NVL=VL-5 
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I«(2, VL)="1 "THEN 
(3, VL)="1"THEN 
I«(4j,VL)="l"THEN 


740 IF A$=" OOST "AND 
VL=VL+1 

750 IF A$=" ZUID" AND 
VL=VL+5 

760 IF A$=" WEST "AND 
VL=VL-1 

770 IF A$="DRINK"ANDVL=3THEN A$="GEB 
TORVEN AAN GIFTIG WATER" ; GOTOB30 
7B0 IF A$="STOP"THEN RUN 
790 IF MID$(A$,9, 1)="S"ANDVL=20THENG 
OTO 900 

800 IF A$="PAK"AND SI$ ( VL) <>"ni ets"T 
HENS I $ ( VL )=" niets" 

810 GOTO 550 

820 ’ — game over — 

830 LOCATE0, 20: PRINTSTRING$ (37, 240) 
840 PRINTA$; ’ 

850 PLAY"t 1501 9o6c-f d-f e03-f — f +-f- 
860 KE YOFF ; FORA= 1 TO400 : C0L0R4 
870 COLOR10:NEXT 
880 FORA= 1 TO9000 : NEXT : RUN 
890 •' - gelukt — 

900 CLS:COLOR 10:KEY OFF 
910 PRINT" the MYSTERY TOWER" 
:PRINTSTRING$(37, 192) 

920 PRINT; PRINT "GEFELICITEERD 
hebt het gehaal d ": PRINT 
930 IF SI$(5)0"niets"THENPRINT" de 
schat heb je niet bui tgemaakt " : G0T09 
50 

940 PRINT" De schat waarde is 2.5 mi 
1 jard 

950 PRINT;PRINT" Familie viert jouw 
thui skomst 

960 PL AY " V 1 5t 200t 2 1 5o2c 3d5-f 3g2e5-f 3q4 
970 LOCATEl ,23;PRINT"THE MYSTERY TOW 
ER (0 1987 MSX Gids " ; 

980 I F NOT STR I G ( 0 ) THÈN 980ELSERUN 

*^90 ’ - stop routine - 

1000 SCREEN0; DEFUSR=?<H3E: A=USR (0) 

1010 KE YON : BEEP ; COLOR 15,4: END 
1020 ’ DATA — plaatsen kar akter - 

DATA 7,6,88,7,8,90,8,8,87,13,6 
DATA 89,9,8,88,31,8,89,9,12,90 
DATA 31,8,89,31,12,91 ’ 

^ DATA — tekst tunktie keys — 
DATA NOORD , OOST , Z U I D , WEST , , PAK 
DATA DRINK, STOP, GEBRUIK, 
te vinden voorwerpen 


! PR INT 


je 


1030 
1040 
1050 
1060 
1070 
1080 
1090 
1100 
1 1 10 
1120 
1 1 30 
1140 
1150 
1160 
1170 
1180 
1190 
1200 
1210 
1220 
1230 
1240 
1250 
1260 
1270 
1280 
1290 
1300 
1310 
1320 
1330 
1340 
1350 
1360 
1370 


DATA 2, voedsel , 3, een bron , 5 
DATA een schat ki st , 6, schoenen 
DATA 13, een si eutel , 22, een bot 
’ DATA — tekst + code’s 
DATA grote hal, 0,0, 1,0 

griezel kamer , 0, i , 1 , 0 
si erkamer , 0, i , 0, i 
studeer kamer , 0,0, 1 , 1 


DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 


schatkamer ,0,0, 1,0 
lange hal ,1,0, 1,0’ 

1 ange hal , 1 , 1 , 1 ^0 
leeuwenkooi , 0, 0, 0, 0 
galeri j, 1 , 1 ,0 , 1 
si aapkamer , 1 , 0, 1 , 1 
1 ange hal , 1 , i , i ,0 
kamer van the DOG, 1,0,1 
wachtkamer ,0,0, 1 ,0 
danszaal noord , 0, 1 , 1 , 0 
danszaal oost, 1,0,0, i 
lange hal , 1,0, 1 j0’ 
speel kamer , 1 , 1 , 0, 0 
danszaal wést, 1,0, 1,1 
badkamer , 1 , 1 , 1 , 0 


1,1 


computer kamer ,0,0, 
celruimte, 1 , 1 ,0i,0' 

opsl agrui mtê, 0, 0, 0, 1 
schutpl aats, 1 , 1,0,0 
schutplaatsi li0^0, 1 


1380 DATA bui tenwerel d , 0, 0, 0, 0 
1390 ’ **»**»*************)j:i|:i|:iK)K*»*** 


CONTROLETELLIMG 
Regel: 10 - 5B 

Regel: 20 - 58 

Regel; 30 - 58 
Regel; 40 - 58 
Regel; 50 - 58 
Regel: 60 - 58 

Regel; 70 - 58 
Regel: 80 - 101 

Regel; 90 - 46 
Regel: 100 - 92 
Regel; 110 - 58 
Regel; 120 - 159 
Regel; 130 - 70 
Regel; 140 - 233 
Regel; 150 - 218 
Regel; 160 - 84 
Regel: 170 - 40 
Regel; 180 - 170 
Regel; 190 - 78 
Regel; 200 - 213 
Regel; 210 - 74 
Regel: 220 - 64 
Regel: 230 - 197 
Regel; 240 - 43 
Regel: 250 - 58 
Regel; 260 - 228 
Regel; 270 - 223 
Regel; 280 - 255 
Regel; 290 - 190 
Regel; 300 - 1 

Regel; 310 - 193 
Regel; 320 - 14 
Regel; 330 - 192 
Regel: 340 - 133 
Regel; 350 - 58 
Regel; 360 - 193 
Regel; 370 - 142 
Regel; 380 - 58 
Regel; 390 - 173 
Regel; 400 - 198 
Regel; 410 - 242 
Regel; 420 - 164 
Regel; 430 - 72 
Regel; 440 - 58 
Regel; 450 - 225 
Regel; 460 - 154 


Regel; 470 - 212 
Regel; 480 - 184 
Regel; 490 - 43 
Regel; 500 - 233 
Regel; 510 - 215 
Regel; 520 - 98 
Regel: 530 - 58 
Regel; 540 - 34 
Regel; 550 - 101 
Regel; 560 - 203 
Regel; 570 - 243 
Regel; 580 - 22 
Regel; 590 - 185 
Regel; 600 - 137 
Regel; 610 - 129 
Regel; 620 - 137 
Regel; 630 - 143 
Regel; 640 - 243 
Regel: 650 - 195 
Regel; 660 - 44 
Regel; 670 - 55 
Regel: 680 - 205 
Regel; 690 - 139 
Regel; 700 - 56 
Regel; 710 - 76 
Regel; 720 - 236 
Regel; 730 - 242 
Regel; 740 - 177 
Regel; 750 - 173 
Regel; 760 - 178 
Regel; 770 - 36 
Regel; 780 - 13 
Regel; 790 - 175 
Regel; 800 - 16 
Regel; 810 - 223 
Regel; 820 - 58 
Regel; 830 - 150 
Regel; 840 - 49 
Regel; 850 - 104 
Regel; 860 - 71 
Regel; 870 - 147 
Regel; 880 - 133 
Regel; 890 - 58 
Regel; 900 - 224 
Regel; 910 - 93 
Regel; 920 - 140 
Regel; 930 - 40 


Regel; 940 - 247 
Regel; 950 - 255 
Regel: 960 - 161 
Regel; 970 - 225 
Regel; 980 - 243 
Regel; 990 - 58 
Regel; 1000 - 102 
Regel: 1010 - 108 
Regel; 1020 - 58 
Regel; 1030 - 138 
Regel; 1040 - 148 
Regel; 1050 - 190 
Regel; 1060 - 58 
Regel; 1070 - 162 
Regel; 1080 - 239 
Regel; 1090 - 58 
Regel; 1100 - 233 
Regel: 1110 - 171 
Regel; 1120 - 227 
Regel; 1130 - 58 
Regel: 1140 - 139 
Regel; 1150 - 24 
Regel; 1160 - 217 
Regel; 1170 - 34 
Regel: 1180 - 88 
Regel; 1190 - 114 
Regel; 1200 - 115 
Regel; 1210 - 187 
Regel; 1220 - 245 
Regel; 1230 - 56 
Regel; 1240 - 115 
Regel; 1250 - 231 
Regel; 1260 - 60 
Regel: 1270 - 166 
Regel; 1280 - 73 
Regel; 1290 - 114 
Regel; 1300 - 63 
Regel: 1310 - 72 
Regel: 1320 - 78 
Regel; 1330 - 149 
Regel: 1340 - 224 
Regel; 1350 - 49 
Regel: 1360 - 194 
Regel; 1370 - 194 
Regel; 1380 - 30 
Regel; 1390 - 58 
Totaal; 17924 



VERA CRUZ 


Dit adventure wijkt enigszins af van de 
gebruikelijke programma's. Het is de 
bedoeling om een moord op te lossen d.m.v. 
het zoeken naar clue's en het opvragen van 
informatie bij verschillende politie- 
bureau's. Het spel speelt in Frankrijk en 
er is een goede kennis van de Engelse taal 
noodzakelijk, want er moeten volledige 
zinnen opgegeven worden. Verder is het 
spel dermate moeilijk dat wij, ondanks 
onze goede kennis van de Engelse taal en 
een ruime ervaring met adventures, niet in 
staat waren om behoorlijke vorderingen te 
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L o A I> I N i 3 
FIRST PART 


maken. Wie dit spel wil spelen zal er 
flink de tanden in moeten zetten en kan 
-van onze kant- geen hulp of tips 
verwachten. 

Het spel staat op cassette en wordt 
uitgegeven door Infogrames voor een priis 
van FL. 45,=. 

CASTLE BLACKSTAR 

Weer eens een tekstadventure. Dit is een 
echt ouderwets adventure waarbij uitge- 
breide opdrachten gegeven kunnen worden 
zoals: ’TAKE LAMP AND LICHT IT'. Het spel 
is niet overdreven moeilijk en -voor zover 
wij kunnen nagaan- zitten er geen rare 
onoplosbare puzzels in. De richtingen 
kunnen met enkele letters opgegeven 
worden, er is een mogelijkheid om alleen 
een uitgebreide beschrijving te verkrijgen 
bij nieuwe lokaties (QUIET) en het spel 
kan tussentijds geSAVEd worden op een 
cassette om later weer verder te kunnen 
spelen. 

Tekstadventures zijn meestal uitgebreider 
en langer dan grafische adventures door 
het ontbreken van plaatjes. Ook voor het 
oplossen van dit spel moet dus flink wat 
tijd uitgetrokken worden. Pas op het bos! 
Hier is -zonder de mogelijkheid om een 
kaart te maken- erg moeilijk uit te komen; 
zeker niet door een tegengestelde richting 
op te geven. Alle objecten worden opge- 
geven en het is dus een kwestie van 
verzamelen en op de juiste plaats het 
juiste voorwerp te gebruiken. Het spel 
staat op cassette en kan alleen goed 
worden opgestart door eerst de computer de 
opdrachten SCREEN 0 en WIDTH 37 te geven. 
(Voor de Philips MSX-2: opstarten zonder 
drives, de beruchte POKE en dan boven- 
staande opdrachten). Zonder deze op- 
drachten worden de teksten verminkt! De 
cassette komt van CDS- Microsystems en 
kost FL. 32,= 
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TASWORD MSX-2 

Persoonlijk vind ik tekstverwerkers en 
data-base programma's het leukste om te 
testen en met deze nieuwe TASWORD was ik 
dan ook best in mijn sas, want het is een 
echt professioneel programma geworden. 
Deze tekstverwerker is alleen geschikt 
voor de MSX-2 en maakt gebruikt van het 
80-kolommen beeldscherm. De tekst wordt 
opgeslagen in het videogeheugen en daarvan 
staat ruim 114K tot de beschikking van de 
gebruiker (max. 1433 regels van max. 80 
tekens) ; meer dan voldoende voor de meeste 
toepassingen. Uiteraard wordt Tasword-2 
geleverd op diskette en gaat vergezeld van 
een flinke (ruim 50 pagina's) , maar erg 
duidelijk geschreven, handleiding in het 
Nederlands; dit programma is dan ook voor 
100% een Nederlands produkt. 

Wat onmiddellijk opvalt is de enorme 
snelheid van deze Tasword versie. Gezien 
de kwaliteit durven we een vergelijking 
met Wordstar best aan en Tasword is 
aanmerkelijk sneller. Vooral het format- 
teren en soortgelijke bewerkingen gaan 
zeer snel. Verder is het programma erg 
gebruiksvriendelijk en we hadden het pro- 
gramma dan ook binnen enkele uren volledig 
onder de knie en konden meteen een ge- 
deelte van de teksten voor deze uitgave 
hiermee invoeren. 
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Een overzicht van alle CTRL-functies staan 
apart op 1 scherm en is op te vragen met 
de ESC-toets. Verder zit er nog een 
kladblok bij de schermen (5 pagina’s) 
waarvan een gedeelte wordt gebruikt om 
vaste teksten op te nemen die in de 
uiteindelijke tekst verwerkt kunnen 
worden. Uiteraard zijn alle 'normale' 
functies (uitlijnen, blokken tekst 
verplaatsen, formatteren enz. enz.) -net 
als bij andere tekstverwerkers van dit 
kaliber- ook hier aanwezig zodat ik me zal 
toespitsen op de sterke kanten van dit 
pakket en de extra mogelijkheden. 

DE OUDE TASWORD 

Bij het behandelen van de diverse punten 
zal ik meteen een vergelijking maken met 
het oude Tasword programma, omdat dit al 
door zeer veel lezers wordt gebruikt die 
zeker benieuwd zullen zijn naar de extra 
mogelijkheden en verbeteringen. 

Tasword MSX-2 maakt gebruik van 'normale' 
files voor het bewaren van de tekst. Deze 
kunnen dus ook zondermeer in andere 
programma's gebruikt worden. Ook hebben de 
files de werkelijke lengte van de tekst. 
Dit alles in tegenstelling tot de oude 
versie waar de files eerst 'vertaald' 
moesten worden en waar de tekst in blokken 
werd weggeschreven. Doordat nu de files 
ook de werkelijke lengte van de tekst 
hebben gaan alle disk-routines heel wat 
sneller dan bij de vorige Tasword. Op de 
schijf ook een hulpprogramma waarmee de 
oude Tasword files naar de nieuwe 
overgezet kunnen worden. Uitstekend! Dat 
hebben we dus meteen gedaan en dat werkt 
prima. Deze nieuwe Tasword werkt -net als 
bijvoorbeeld Wordstar- met BAK-files. Een 
nieuwe file overschrijft een oude file met 
dezelfde naam niet, doch maakt een geheel 
nieuwe file en verandert de oude in een 
BAK-file. Zo is er altijd nog een voor- 
laatste file aanwezig en wordt, wanneer 
per ongeluk dezelfde naam gebruikt is, de 
andere file niet meteen gewist. Bij een 
volgende keer wegschrijven met dezelfde 
naam wordt weer de laatste file veranderd 
in een BAK-file en de voorlaatste wordt 
overschreven. Het inlezen en wegschrijven 
gaat via een menu en er wordt een over- 
zicht gegeven van de files, met de lengte 
ervan, en de vrije ruimte op de diskette. 
Ook via dit menu kunnen aanpassingen 
gemaakt worden binnen het programma en 
deze aangepaste versies kunnen weer 
geSAVEed worden. In tegenstelling tot de 
oude Tasword gaat dit hier foutloos; 
hiermee zal dan meteen duidelijk zijn dat 
ook deze versie van Tasword weer niet is 
beschermd zodat back-up kopien kunnen 
worden gemaakt of eventueel verschillende 
versies met verschillende vaste instel- 
lingen (b.v. bij meerdere vaste kant- 
lijninstellingen) Ook kan b.v. de cursor 
veranderd worden (vast, langzaam knip- 
perend, snel knipperend). Verder kunnen 
nog de printeropdrachten gewijzigd worden 
en de karakters worden veranderd. Er is 
een uitgebreid printermenu aanwezig met 
vele mogelijkheden. 


Voor sommigen zal het wat lastig zijn, 
maar deze tekstverwerker kan op heel veel 
punten aangepast worden aan eigen wensen 
en aan de gebruikte printer. 

De vorige Tasword had als groot bezwaar 
dat tekst, ingetoetst op een regelbreedte 
van b.v. 40 tekens, niet geformatteerd kon 
worden naar een smallere marge. Ook dit 
probleem zijn we kwijt; de tekst kan -met 
de optie 'moeilijk formatteren'- alle 
kanten op verschoven worden. Wel kan deze 
vorm van formatteren alleen per alinea en 
kan niet -zoals bij gewoon formatteren- de 
tekst vanaf de positie van de cursor 
worden gewijzigd. Wordstar heeft hier 
echter ook problemen mee en eigenlijk is 
het wel prettiger om dit soort stukken 
tekst in een aparte alinea te plaatsen, 
want allerlei moeilijke correcties ach- 
teraf zijn hiermee overbodig geworden. Net 
als de eerdere versie wordt deze Tasword 
weer geleverd met een 'Trainer": een file 
met tekst om te oefenen. 

Toch hebben we ook een paar minpuntjes. 
Het eerste geldt alleen voor de gebruikers 
van de oude Tasword. Deze nieuwe Tasword 
voor de MSX 2 is niet compatible met de 
oude. D.w.z. dat alle CTRL-functies en de 
functietoetsen een andere betekenis hebben 
gekregen. Deze tekstverwerker zou -wat dat 
betreft- net zo goed een andere naam 
kunnen dragen, want je moet er weer geheel 
opnieuw mee leren omgaan en de regelmatige 
gebruikers van de vorige versie zulen -net 
als wij- in het begin heel vaak 
mistoetsen. 

Ten tweede missen we een ' af breekhulp ' 
zoals Wordstar die heeft. Nu is dat geen 
echt minpunt, want slechts zeer weinig 
tekstverwerkers voor homecomputers hebben 
een dergelijke mogelijkheid, maar dit 
plaatst Wordstar op eenzame hoogte waar 
het tekstverwerkers voor homecomputers 
betreft . 

Tot slot nog de 80 tekens op een regel. 
Dit is het maximale aantal en er kunnen 
niet -zoals b.v. bij Wordstar- meer tekens 
op een regel geplaatst worden. Een tekst 
met een 15 pitch letter op een A-4 (ca. 
110 tekens) kan dus niet. 

Verder niets dan lof. Dit is, na Wordstar, 
de beste tekstverwerker voor de MSX die we 
tot nu toe in handen hebben gehad waarbij 
Wordstar een + krijgt voor de afbreekhulp 
en Tasword er een voor hoge snelheid. 
Tasword MSX-2 plaatst zich meteen aan de 
top en -nu komt het- voor een prijs 
waarvoor slechts zelden zulke goede 
software verkrijgbaar is. Deze tekstver- 
werker kost slechts FL. 149,= en de 
bezitters van de oude Tasword kunnen deze 
inleveren en met bijbetaling van FL. 75,= 
de nieuwe versie in hun bezit krijgen. 
Uiteraard moet men dan wel over een MSX-2 
beschikken. 

Tasword MSX-2 komt van het Groningse be- 
drijf Filosoft en wordt geleverd op dis- 
kette met een duidelijke Nederlandse hand- 
leiding. 
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B66ld *•»*** 
Geluid 
Spelkwaliteit 
Foutafhandeling * * * * 
Gebruiksgemak * ♦ * * * 
Documentatie* * * * * 
Prijs * * * * * 

• ZEER GOED 

*♦** GOED 
*** REDELIJK 
** MATIG 

* SLECHT 



OPERATION ALIGNMENT 

Deze software komt ook weer van Filosoft 
en is bedoeld om de koppen van een 
datarecorder af te regelen. Het programma 
werkt prima en wordt geleverd in een 
stevige doos waarin zich ook een kleine 
schroevendraaier bevindt, waarmee de kop 
van de recorder afgesteld kan worden. Wie 
van plan is de koppen van de datarecorder 
te gaan afstellen (al dan niet met deze 
software) dient er wel rekening mee te 
houden dat, wanneer eenmaal aan de afstel- 
schroef is gedraaid, de kop enigszins los 
kom.t te zitten en regelmatig bijgesteld 
dient te worden. (Meestal wordt door de 
fabrikant de af stelschroef met lak vast- 
gezet) . Aan de andere kant zijn sommige 
tapes van dusdanig slechte (opname) kwali- 
teit dat eigenlijk iedereen, die veel met 
cassettesof tware werkt, zo'n afregel- 

cassette in huis hoort te hebben. 

Het afregelen is af te lezen op het 
beeldscherm d.m.v. 2 balken -1 voor goed 
en 1 voor fout- en verder geeft het scherm 
een overzicht van het aantal keren dat 
goed en fout is ingelezen plus het 
percentage snelheidsfouten. Heel eenvoudig 
maar doeltreffend. 

De prijs is FL. 29,=. Niet duur voor dit 
handige programmaatje. 



TRAFFIC 


Volgens de handleiding -in diverse talen, 
behalve Nederlands- is het de bedoeling 
om, door middel van het omschakelen van de 
stoplichten, het verkeer op enkele 
kruispunten te regelen in Londen. Dat 
klonk allemaal erg interessant, vooral 
omdat het testen van deze software samen 
viel met de grote verkeerschaos in 
Amsterdam door het niet goed functioneren 
van de verkeerslichten. 

Het idee is origineel maar het spel valt 
erg tegen. Er is nauwelijks wat te 
regelen, de plaatjes zijn erg eenvoudig, 
de geluiden stellen helemaal niets voor en 
de prijs is -voor zulke knullige 
spelletjes- belachelijk hoog. Het spel 
komt van Sony en wordt op Rompack geleverd 
voor een prijs van FL. 69,=. Voor dat 
bedrag is echt wel wat beters te krijgen 
en met de recentelijke prijsverlagingen 
van de Rompacks van Konami valt deze 
cartridge behoorlijk uit de toon. 


Beeld * * * 
Geluid * ♦ 
Spelkwaliteit * * 
Foutafhandeling 
Gebruiksgemak 
Documentatie* * * * 
Prijs* 

ZEER GOED 
GOED 

*** REDELIJK 
** MATIG 

♦ SLECHT 
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N±evaw van Konam± ; 


NEMESIS 

GOONIES 

PIPPOLS 


Drie nieuwe Rompacks van topklasse. 
Nemesis is een schietspel van zeer hoge 
kwaliteit. Het is een arcadespel voor de 
gevorderde speler en zeer moeilijk. Er 
zijn veel schermen {de cartridge bevat 
128K Rom),de snelheid is vrij hoog en 
meteen in het eerste veld wordt al het 
uiterste van de speler geeist. Grafisch 
ziet het er weer schitterend uit (maar dat 
waren we de laatste tijd wel gewend van 
Konami) en ook de geluiden zijn prima. De 
handleiding is goed verzorgd, maar nog 
steeds niet in het Nederlands. 



Nemesis vertoont qua spel enige gelijkenis 
met het inmiddels alweer legendarische 
Knightmare, alleen gaat het er hier om een 
planeet te beschermen tegen vijandelijke 
aanvallen. Ook bij dit spel staan je 
daarvoor verschillende wapens ter beschik- 
king, maar die moet je eerst veroveren 
door een serie aanvallende schepen weg te 
schieten. Op een balk onderin het beeld 
wordt dan aangegeven welke mogelijkheid 
tot je beschikking staat. Dit varieert van 
dubbele snelheid tot een laserkanon. In de 
eerste ronde is het zaak jezelf zoveel 
mogelijk tot de tanden te bewapenen, want 
in latere rondes kun je het wel vergeten 
met een gewoon kanonnetje. Zelfs aan het 
eind van de ronde heb je je wapens hard 
nodig, want dan moet je de strijd 
aanbinden met een superruimteschip, dat je 
precies in het midden moet zien te raken, 
terwijl je de raketten, die op je afge- 
schoten worden ontwijkt -en dat vier keer- 
om aan 10.000 bonuspunten te komen. En die 
punten zijn weer belangrijk, aangezien je 
bij elke 100.000 punten een extra "Warp 
Rattler" {jouw ruimtescheepje) krijgt. 

De prijs is Fl. 59,= en voor dit 
-verlaagde- bedrag wordt erg veel spel- 
kwaliteit geleverd. Zelfs de doorge- 
winterde speler zal hier heel lang zoet 
mee zijn. 


Beeld « « * » « 
Geluid* * » * « 
Spelkwaliteit* * ♦ * » 
Foutafhandeling 
Gebruiksgemak 
Documentatie» * * * 
Prijs* * * * * 

««««* ZEER GOED 
GOED 

*>*» REDELIJK 

• • MATIG 

* SLECHT 



Goonies, ook een cartridge van Konami, is 
een heel ander spel. Het gaat hier weer om 
het 'klim en klauter' type, maar dan wel 
met de topkwaliteit van Konami. Schit- 
terende beelden en leuke geluiden maken 
het een plezier om hiermee te spelen. Lang 
niet zo moeilijk als Nemesis maar toch 
pittig genoeg om de ervaren speler een 
flinke tijd bezig te houden. Erg plezierig 
vonden we het Password dat verkregen wordt 
na het beëindigen van een ronde. 

Met dit Password wordt toegang verleend 
tot de volgende ronde zodat niet elke keer 
alle eerste rondes doorgespeeld hoeven 
te worden om aan de ronde te komen die nog 
niet uitgespeeld is. Hopelijk blijft deze 
mogelijkheid bij de komende Konami 's 
gehandhaafd. 

Goonies is gebaseerd op de gelijknamige 
film van Steven Spielberg en degenen, die 
de film kennen, zullen meteen weten waar 
het om gaat. Jij als speler vervult de rol 
van Mr. Sloth, die de 7 kinderen, die door 
de gangsters gevangen worden gehouden, 
moet bevrijden. En dat in elke ronde, 
waarbij het aantal tegenstanders en 
problemen steeds groter wordt. 

Er moet een vast aantal rondes (velden) 
doorlopen worden voordat met het volgende 
spel kan worden begonnen. Voornamelijk 
behendigheid en timing zijn noodzakelijk. 
Snelheid wordt meestal niet vereist. Om 
het spel goed onder de knie te krijgen 
moet het wel regelmatig gespeeld worden. 
Pas dan kunen de velden probleemloos 
doorlopen worden. Er wordt gewerkt met 
'kracht' die minder wordt wanneer een 
aanvaller de speler verslaat of meer kan 
worden wanneer het omgekeerde gebeurt of 
bepaalde voorwerpen gevonden worden. Deze 
kracht kan wel aangevuld worden door -op 
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makkelijke posities in het spel- enkele 
keren dezelfde tegenstander te verslaan 
{veld binnengaan, tegenstander verslaan, 
veld verlaten en meteen weer terug) . Wel 
een vervelende manier om een ronde door te 
komen maar wel handig om, wanneer het spel 
bijna afgelopen is, nog wat extra kracht 
te verzamelen om de ronde te beëindigen. 
Ook deze cartridge kost weer Fl. 59,= en 
deze prijs is redelijk. 


Beeld * » * * * 
Geluid * * * * 
Spelkwaliteit* * * * 
Foutafhandeling 
Gebruiksgemak 
Documentatie * * * * 
Prijs * * ♦ * 

• »*«» ZEER GOED 

• GOED 

««• REDELIJK 

• • MATIG 

• SLECHT 


Tot slot zijn we bij de derde Konami 
cartridge aangekomen die de naam Pippols 
draagt. Dit is vrijwel het enige wat lees- 
baar is op de doos en in de handleiding; 
verder is bijna alles in het Japans. De 
speler zal zelf moeten uitvinden wat de 
betekenis en de waarde zijn van de 
verschillende voorwerpen die tijdens het 
spelen tevoorschjn komen. Pippols is niet 
moeiljk en de handleiding is dan ook niet 
echt nodig. 



Voor het spelen van dit spel is 
voornamelijk behendigheid nodig. Snel- 
heid en timing zijn minder noodzakelijk. 
Het spel bevat (voor zover wij konden 
nagaan) minstens 15 velden, die vertikaal 
over het scherm scrollen en vrij groot 
zijn. In een klein veldje -rechts op het 
scherm- is te zien waar de speler zich 
bevindt en via dit veldje moet de weg naar 
de 'Holy Gem* gevonden worden. Dit weten 
we dan omdat er in het Japans waar- 
schijnlijk geen tekens bestaan om deze Gem 
aan te duiden zodat dit, buiten de titel, 
het enige leesbare is in de handleiding. 
De velden variëren van makkelijk tot 
lastig en lijken veel op elkaar. De 
verschillen zitten voornamelijk in de 
tegenstanders en de dingen die gevonden 
kunnen worden. In alle velden kom je 
vruchten en geld tegen maarmee flink wat 
punten te behalen zijn. Verder zijn er 
(zeer schaars) nog wat hulpmiddelen: Een 


kruis ruimt alle aanwezige 'monsters' op 
en een klok zet het beeld stil, zodat 
alleen Pippols kan lopen en de booswichten 
kan vernietigen. Verder zijn er nog 
schoentjes te vinden (verschillende 
soorten) die de loopsnelheid kunnen ver- 
hogen. 

Enkele tips: 

Van de bananen en de druiven zijn er 
steeds 4 per veld. Het aantal punten 
hiervoor wordt steeds hoger dus probeer ze 
allemaal te pakken. Voor de munten is het 
puntenaantal verschillend en willekeurig. 
De bordjes met de afstand leveren 3000 
punten op en de vlinders geven 1000 punten 
als ze allemaal gepakt worden. Voor elk 5e 
beestje dat je te pakken krijgt komen er 
500 punten bij. Een extra leven is ook 
raogelijk maar hoe dit gebeurt is ons nog 
niet helemaal duidelijk. Het heeft in 
ieder geval niets met de score te maken 
maar waarschijnlijk gebeurt dit na het 
pakken van de klok? 

Schoentjes zijn te verkrijgen door, na het 
pakken van de klok, alles in het veld te 
verwijderen. Lukt dit niet (b.v. door het 
stilzetten van het veld op een ongelukkige 
plaats) dan krijg je de schoentjes niet! 
Je kan ook terug gaan in een veld i.p.v. 
dit te verlaten -in de richting van de 
borden- naar een volgend veld. De 
tegenstanders zijn dan wel agressiever en 
beginnen in de eerste ronde al te 
schieten. 

De beelden zijn weer prima en ook de 
geluiden zijn aardig. Echt een spel voor 
het hele gezin; van jong tot oud. Op deze 
cartridge een prijskaartje met Fl. 49,=. 
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Voor de verandering nu eens geen 
beoordeling d.m.v. de bekende sterretjes. 
Voor beeld en geluid geven we 'goed' en de 
documentatie zal wel in orde zijn maar is 
onleesbaar voor de meesten van ons. De 
spelkwaliteit moeten we anders beoordelen. 
Voor de doorgewinterde spelers geven we 
slechts een 'matig'. Deze mensen hoeven 
dit spel echt niet aan te schaffen. Wie 
echter niet zo'n fanaat is en een leuk 
spel zoekt voor de lange winteravonden, 
dat ook nog geschikt is voor kinderen kan 
zeker eens gaan kijken bij de MSX Soft 
Shop, die -voor zover ons bekend- de enige 
in Nederland is bij wie Pippols leverbaar 
is. Als spel voor het hele gezin krijgt 
deze cartridge van ons 5 sterren en ook de 
prijs is goed voor 5 sterren. 

Alfred en José. 
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CHECKMATE ! 

FIRST MOVES IN CHESS 

Een hele leuke cassette voor de beginnende 
schakers. Deze casette bevat niet alleen 
een schaakspel, maar bovendien nog 5 
andere programma's te weten: 

FOR KING AND COUNTRY 

Hier wordt geleerd om met de pionnen de 
koning aan te vallen en de koning te 
verdedigen. 

THE KING AND HIS CASTLE 

zijn oefeningen met de toren. 

THE KNIGHT CHARGES 

Hier wordt geleerd zo goed mogelijk het 
paard in te zetten. 

THE BISHOP JOINS UP 
Alles over de loper. 

EN'TER THE QUEEN 

Juist! Alles over de koningin, het op 1 na 
waardevolste stuk op het bord. 

De zetten worden opgegeven d.m.v. de 
locaties op het bord (A2A4) . Er kan steeds 
worden gegaan om opnieuw te 
bekijken en aan het eind van een spel kan 
en geheel overzicht van de zetten 
verkregen worden. Een uitstekende cassette 
om het schaken te leren en de prijs is 
een lachertje: FL. 15,=. Geen lachertje is 
het dat dit programma niet op alle 
machines draait. Erg jammer. Het programma 
is van Toshiba. 



BREAKOUT 1 

THE GREAT COMPUTER ADVENTÜRE 

Ook deze cassette is weer van Toshiba en 
ook hier is weer het aantal machines 
waarop dit spel draait beperkt. 

Het is een tocht door het hart van de 
computer, van print naar chip. Grafisch 
erg fraai en nog leerzaam ook. 'Blueprint 
Man' moet de flag-code ontcijferen om te 
kunnen ontsnappen. 35 verschillende vel- 
den! En dat alles weer voor een prijsje 
van slechts FL. 15,= 



Beeld • « * * * 
Geluid * * » 
Spelkwaliteit * » » 
Fouta f handeling 
Gebruiksgemak 
Documentatie* 

Prijs* * * * * 

♦ ZEER GOED 
GOED 

♦ ♦♦ REDELIJK 

** MATIG 

♦ SLECHT 


TEACH YOURSELF BASIC 

Een cursus BASIC op de derde cassette van 
Toshi^. 4 programma's met allerlei 
oefeningen op een manier die in een boek 
niet mogelijk is. Een aanrader als je 
Engelse taal meester bent. Weer die 
belachelijke lage prijs van FL. 15,= en 
deze cassette draait op alle machines want 
alles is in BASIC geprogrammeerd. 


Beeld * * * * 
Geluid « * « 
Spelkwaliteit * * * * 
Foutafhandeling 
Gebruiksgemak 
Documentatie * * * 

Prijs * * * * * 

ZEER GOED 
0 * 0 * GOED 

REDELIJK 
.00 MATIG 

★ SLECHT 



47 




OUDE NUMMERS MSX GIDS 


De nummers 1,2 en 3 van de MSX Gids zijn 
GEHEEL UITVERKOCHT. Hieronder volgt een 
overzicht van de nummers welke nog wel 
verkrijgbaar zijn met een beknopte 
omschrijving van de inhoud: 



MSX GIDS NUMMER 4 


LISTIN6S: THE WALL (breakout) 

MSX SIGN (tekenprogramma) 

TAFELS (tafels overhoren) 

ST-FILE (database voor cassette) 
OVERIJSSEL PER HELICOPTER 
DARTSPEL, GALGJE EN WURM 
Verder de cursus machinetaal deel 2, BIOS 
CALLS overzicht deel 1, TREND JP-130 MSX 
printer en de software beschrijvingen. 

MSX GIDS NUMMER 5 


LISTINGS: HET VERLATEN KERKHOF 

THE ATTACK OF THE ALIENS 
INDEX-2 (tijdschriften/programma 
archief voor diskette) 

SPEED COPY/CATALOG (diskette) 
Verder de cursus machinetaal deel 3, BIOS 
CALLS deel 2, diverse artikelen over BASIC 
en de vaste rubrieken. 

MSX GIDS NUMMER 6 


LISTINGS: WURZLE (klim en klauter spel) 

MSX KASBOEK (voor diskdrive) 
STARJET (behendigheidsspel) 

VIER OP EEN RIJ (bordspel) 

DUIVEN SCHIETEN 
WERKWOORDEN VERLEDEN TIJD 
Verder de cursus machinetaal deel 4, MSX 
compatible met PC, telecommunicatie en 
databanken, diverse stukken over BASIC en 
de vaste rubrieken. 

MSX GIDS EXTRA EDITIE (NUMMER XI) 


LISTINGS; STARWARS (arcade) 

TOWERS OF HANOI 
MAXIT (cijferspel) 

5 OP EEN RIJ (bordspel) 

KAMELEON, YATHZEE, MINI PAC-MAN, 
ANALOGE KLOK, FACTUREREN en DATA 
LI STER 

Verder de nieuwe Spectravideo X' Press 16 
en de vaste rubrieken. 


DISKETTES 

De programma's uit de MSX-Gidsen zijn ook 
op diskette verkrijgbaar; zowel op 3.5 
inch (voor de meeste MSX computers) als op 
5.25 inch -dubbelzijdig- voor de Spectra- 
vHeo 707 drive. 

Diskette nr.1 bevat de belangrijkste pro- 
gramma's van MSX-Gids 1 t/m 3. Een verza- 
mel diskette dus. 

Diskette nr. 4 bevat alle programma's uit 
Gids nr. 4, diskette nr. 5 uit MSX-Gids 
nr . 5 enz. enz. De diskette van de extra 
editie heeft nr. XI. 

De diskettes starten automatisch op en zijn geheel 
menugestuurd met diverse keuze mogelijkheden en 
schermen; alles in hi-res graphics. D.m.v. een 
letter-keuze-menu (gebruik de BOOFDletters i ) kunnen 
de programma’s geladen of opgestart worden. Het menu 
bevat ook een overzichts programma, dat geschikt Is 
voor twee drives en verder zijn er nog enige infor- 
matie- en advertentiepagina’s op de diskette 
aanwezig. 

CASSETTES 

Ook zijn er cassettes leverbaar met de 
programma's uit de MSX-Gidsen. Op deze 
cassettes staan tevens de programma's die 
alleen geschikt zijn voor diskdrive en 
deze programma's moeten wel overgezet 
worden naar diskette en kunnen -uiteraard- 
zonder diskdrive niet gebruikt worden. 
De cassettes hebben -net als de diskettes- 
hetzelfde nummer als de MSX-Gids waarin de 
programma's staan en zijn verkrijgbaar 
vanaf nummer 5. 

De cassettes kosten 15,= per stuk 
(Belgie Bfr. 280) en de diskettes kosten 
25,= p.st. (Belgie Bfr. 470). Deze prijs 
is inclusief verzendkosten. 

Diskettes en cassettes bestellen door 
overmaking op giro 909515 t.n.v. A.Debels 
te Amsterdam. 

Voor Belgie kan besteld worden op rekening 
nr. 235-0430464-87 bij de Generale Bank te 
Hasselt t.n.v. J. Herps, Amsterdam. 

VERGEET BIJ DE BESTELLING NIET HET 
CASSETTE- OF DISKETTE NUMMER EN DE 
SOORT DISKETTE (3.5/5.25) TE VER- 
MELDEN. 


Oude nummers zijn te bestellen door over- 
making van 7,95 per exemplaar op Giro 
5036011 t.n.v. J. Herps te Amsterdam. Voor 
Belgie Bfr. 155 op bankrekeningnummer 
235-0430464-87 bij de Generale Bankmaat- 
schappij te Hasselt t.n.v. J. Herps, 
Postbus 10252, 1001 EG Amsterdam. 


HAAST? 

DE CASSETTES EN DISKETTES ZIJN OOR VERKRIJGBAAR BIJ DE MSX 
SOFTSHOP, VESPÖCCISTRAAT 48, 1B56 SM AMSTERDAM. HIER ZIJN 
ECHTER ALLEEN DE LAATSTE NÜMMERS VERKRIJGBAAR. CASSETTES EN 
DISKETTES VAN OÜDB NÜMMERS ZIJN HIER NIET LEVERBAAR! 
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als _ _ _ _ _ 

De Fastext 80 printer 

In MSX-Gids nr 5 besprak ik de Fastext 80 
printer van Smith Corona. Deze hobby- 
istisch geprijsde printer heeft een aantal 
fraaie kenmerken zoals zes verschillende 
lettersets, onderstrepen en zelfs gra- 
fische mogelijkheden door het apart 
besturen van de printerpennetjes. 

Nu valt het echter niet mee deze mo- 
gelijkheden te benutten. De zeer beknopte 
handleiding is eerder verwarrend dan 
behulpzaam. De besturingscodes lijken op 
het eerste gezicht Epson-compatible maar 
blijken dit net niet te zijn. Daarom deze 
uitleg, waardoor U naar ik hoop minder 
lang hoeft te puzzelen om de mogelijkheden 
uit de printer te halen dan ik zelf heb 
gedaan. 

- Het selecteren van de karaktersets. 

Uw printer start op met Pica schrift {80 
tekens per regel, 10 tekens per inch). Dit 
schrift wordt in de handleiding ook wel 
"normal" genoemd. Wanneer U om wilt scha- 
kelen naar de Elite karakterset (96 tekens 
per regel, 12 tekens per inch), dan leest 
U in de handleiding dat U dit via "ESC M" 
dient te doen. Met "ESC" wordt hier niet 
de toets bedoeld op het toetsenbord van de 
computer, maar een besturingscode voor de 
printer. "ESC M" voert U in als: 

LPRINT CHR$(27) + CHR$(77); 
of LPRINT CHR$(27) + "M"; 

CHR$(27) vertolkt "ESC", CHR${77) de "M". 
Achter de LPRINT instruktie is ge- 
plaatst. Laat U weg, dan wordt aan de 
printer ook de code voor een regelopvoer 
(CHR$ (13)) doorgegeven. Bij tekst is dit 
niet altijd een bezwaar, maar bij de 
grafische mode kunnen hierdoor onverwachte 
effecten optreden. 

Wilt ü de Elite karakterset vergroot 
weergeven, dan dient U tevens de volgende 
instrukties aan de printer door te geven: 

LPRINT CHR${27) + CHR$(87) + CHR$(1); 

Met behulp van de codes in de tabel kunt U 
zo aan de printer doorgeven welke 
letterset moet worden geselecteerd, en of 
de tekst onderstreept dient te worden. 



Inschakelen Uitschakelen 

Te canbinerai met 

Elite 

schrift 

27 77 

27 80 

onderstrepen en 
vergroot 

Condensed 

schrift 

15 

18 

(xiderstrepen en 
vergroot 

Vergroot 

27 87 1 

27 87 0 

Pica, Elite en 
Condensed 

Onder- 

streept 

27 45 1 

27 45 0 

Pica, Elite en 
Condensed 


- Grafische mogelijkheden 

De Fastext 80 heeft de mogelijkheid om 
ieder printerpennet je apart te besturen. 
Normaal wordt door de computer iedere 
letter als ASCII-code (een getal van 0 t/m 
255) aan de printer doorgegeven. De 
printer zet deze code weer om naar een 
letter. In de grafische mode krijgen de 
codes echter een andere funktie: ze 
bepalen welk van de acht printerpennetjes 
bekrachtigd worden. 

- Het initialiseren van de grafische mode 

De grafische mode aktiveert U met 
"ESC *". Hierna verwacht de printer nog 3 
controle codes, nl. een code waarmee de 
dichtheid van de puntjes wordt opgegeven 
en twee codes waarmee U opgeeft hoeveel 
tekens de printer in de grafische mode 
dient te blijven. 

Bij de code voor de dichtheid van de 
puntjes kunt U twee waarden geven: 0 of 5. 
0 geeft als resultaat puntjes die 1/60 
inch (ongeveer 0.42 mm) van elkaar staan. 
Dit is even ver uit elkaar als bij Pica- 
schrift. Deze grafische mode wordt "normal 
density" genoemd. 5 geeft puntjes die 1/72 
inch (ongeveer 0.35 mm) van elkaar staan, 
net zo ver uit elkaar als bij het Elite- 
schrift. In de handleiding wordt dit 
"plottergraphics" genoemd. Dit betekent 
echter niet dat deze printer plotter-f aci- 
liteiten bezit. 

Wanneer U de grafisch mode op de printer 
inschakelt, wil de printer weten hoeveel 
codes deze mode werkzaam moet blijven. 
Daarna wordt automatisch weer overgescha- 
keld op de tekst-mode. U kunt maximaal 480 
grafische codes per regel opgeven. De 
printer gaat in de grafische mode aan het 
eind van de regel niet verder op de 
volgende regel, dus alle opgegeven codes 
moeten op 1 regel passen. 

Het aantal codes dat de printer in de 
grafische mode werkzaam dient te blijven 
geeft U als twee CHR$-getallen door aan de 
printer: 

het gehele deel van (aant. grafische 
codes/256). Dit getal is 0 (0 t/m 255 
codes) of 1 (256 t/m 480 codes). 

- de rest van (aant. grafische codes/ 


Vb. 300 grafische codes => 1*256 + 44 

Nu hebben we alle gegevens die de printer 
verwacht bij de initialisatie van de 
grafische mode. Wilt ü 25 grafische codes 
printen met de "normal density" grafische 
mode, dan stuurt U de volgende codes naar 
de printer: 

LPRINT CHR$(27) + "*" + CHR$(0) + CHR$(25) 
+ CHR${0) ; 
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CHR${27)+"*" 


: initialisatie van de 
grafische mode: "ESC *" 
CHR$(0) : "normal density" 

CHR$(25)+CHR$(0) : 25 (= 25 + 0 * 256) 

grafische codes 

- Het samenstellen van de grafische codes 

De printerkop van de Fastext 80 printer 
bestaat uit 8 pennetjes onder elkaar. 


; 

- 10 0 

A 

W 

A 
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0 0 
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0 
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w 
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64 

16 

4 

•1 


Fig 1. Printerkop van de Fastext 80 


U vormt nu de code door de getallen die 
in fig 1 bij de printerpennet jes staan 
die bekrachtigd moeten worden bij elkaar 
op te tellen. Een code bestaat uit een 
getal van 0 (geen enkel pennetje bekrach- 
tigd) tot 255 (alle pennetjes bekrach- 
tigd). Wanneer U in Uw programma’s wel 
eens gebruik maakt van sprites of zelf 
gedefinieerde karakters, zal deze werk- 
wijze bekend voorkomen. 

Vb. We willen de printer een huisje laten 
afdrukken. 


* ★ * * 

* * * * 
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Van elk van de acht 
grafische code. 

Vb. 3e kolom: 

* 

k 

k 

k 

k 


kolommen bepalen we de 


0 * 128 = 0 

1 * 64 = 64 

0 * 32 = 0 

0 * 16 = 0 

1 * 8 = 8 

1 * 4 = 4 

1 * 2 = 2 

1 * 1 = 1 

( + 
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grafische code: 


Programma: 

10 LPRINT CHR$(27)+"*"+CHR$(0)+CHR$(8)+ 
CHR$(0) ; 

20 ' Initialisatie grafische mode 
30 FOR 1=1 TO 8:READ A: LPRINT CHR$(A);: 
NEXT 

40 ' Stuur de 8 codes naar de printer 
50 DATA 255,225,79,143,129,77,45,31 

Opm 1; Wanneer U in regel 10 weglaat, 

geeft de computer een regelopvoer- 
code door aan de printer. Deze ziet de 
regelopvoer code echter als de eerste 
grafische code. Na acht codes springt de 
printer terug naar de tekst-mode. "31" 
wordt niet meer als grafische code her- 
kend. 

Opm 2: Het verschil tussen "normal densi- 
ty" en "plottergraphics" kunt U 
goed zien wanneer U regel 10 in het 
programma de tweede keer wijzigt in: 

10 LPRINT CHR$(27)+"*"+CHR$(5)+CHR$(25)+ 
CHR$(0) ; 

Wanneer U de printer een tekening van 
meer dan 8 puntjes hoog wilt laten 
printen, dient het onderste puntje van een 
regel aan te sluiten op het bovenste 
puntje van de volgende regel. Dit bereikt 
U door de regelopvoer op 8/72 inch in te 
stellen: 

LPRINT CHR$(27)+"A"+CHR$(8) ; 

Bij het kaarsje van Amnesty International 
uit MSX-Gids 5 is hiervan gebruik gemaakt. 

10 ' Amnesty kaars 

20 LPRINT CHR$(27)+"A"+CHR$(8) ; 

30 DEFINT D,I,J 
40 FOR 1=1 TO 4 

50 LPRINT CHR$(27)+"*"+CHR$(5)+CHR$(22)+ 
CHR$(0) ; 

60 FOR J=1 TO 22: READ D: LPRINT CHR$(D);: 
NEXT J: LPRINT 
70 NEXT I 
80 END 

100 DATA 0,0,0,0,0,0,014,31,48,225,71,60, 

0 , 0 , 0 , 0 , 0 , 0 , 0 , 0,0 

110 DATA 5,2,3,4,4,4,63,16,144,112,208,16, 

31.28.4.10.2.1.1.2.0. 0 

120 DATA 2,5,5,24,12,8,255,8,48,24,32,32, 

255 . 48 . 24 . 32 . 32 . 160 . 32 . 192 . 0 . 0 

130 DATA 128,0,128,160,192,64,248,8,12,4, 
2,14,255,16,24,48,24,16,16,32,112,32 

Tot ziens. 

Mare Spierenburg 
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De volledige MSX karakterset 
op de Fastext - 80 


De Fastext 80 is een standaard Centronics 
printer. Deze printer herkent alleen de 
ASCII codes tussen 0 en 127, waarbij de 
codes 0 tot 31 besturingscodes zijn en de 
codes 32 tot 127 de diverse karakters 
(letters, cijfers, leestekens e.d). Uw 
MSX-computer kent een uitgebreidere karak- 
terset. Hiervoor worden twee truuks toege- 
past: de codes 128 t/m 255 worden benut en 
de codes 0 t/m 31 worden voor grafische 
tekens gebruikt. Om deze laatste tekens 
niet te verwarren met besturingscodes 
worden ze vooraf gegaan door de code "1". 

De machinetaalroutine kijkt nu of een 
code naar de printer wordt gestuurd die de 
printer herkend. Is dit niet het geval, 
dan wordt de printer overgeschakeld op 
grafische mode, en wordt het speciale 
MSX-karakter in grafische codes verzonden. 
Hierbij wordt nog een onderscheid gemaakt 
tussen grafische tekens en accent-letters . 
De eerste worden 8 puntjes breed in "plot- 
ter graphics" geprint. De accent-letters 
worden 6 puntjes breed in "normal density" 
geprint. Wanneer U het Pica schrift op de 
printer selecteert, zijn deze letters niet 
van standaard Fastext letters te onder- 
scheiden. 


Beeldscherms WIDTH 36 


10 
20 
30 
40 
50 
60 
: A= 
70 
err 
80 
100 
110 
120 
130 
140 
150 
160 
170 
180 
190 
200 
210 
220 
230 
240 
250 
260 
270 
280 
290 
300 
310 
320 
330 
340 
350 


’ Volledige MSX-karakter5et 
’ voor de FASTEXT-80 

S=0:FOR I=?<HD000 TO 8<HD0CDs READA$ 
VAL("SïH"+At) iPOKE I , A; S=B+A; NFXT 
IF 8028147 THEN PRINT "Checksum 
or ■■ : STOP 

DEFUSR=8<HD000; A=LJSR (0) 

DATA DD,21,B6,FF,DD,36,01, 11 

DATA DD , 36 , 02 , D0 i DD , 36 , 00 ; C3 
DATA C9,F5,C5,D5,E5,32,D4;D0 
DATA FE,E0,30,36 ;fe;C 0;30,25 
DATA FE,7F,30,2E,FE,01 ,28,0C 
DATA 3A, Dl , D0, FE, 01 , 28, 0A, El 
DATA D1,C1,F1,C9,32,D1,D0, 18 
DA IA F6, 3A, D4, D0, D6, 40, 32, D4 
DATA D0 , 97 , 32 , D 1 , D0 , 3E , 05 , 32 
DAT A D3 , D0 , 3E , 08 , 32 , D2 , D0 , C3 
DATA 5B, D0, 97,32, D3, D0, 38^06 
DATA 32,D2,D0,3E, 1B,CD,BE,D0 
DATA 3E, 2A, CD, BE, D0, 3A, D3!, D0 
DAT A CD , BE , D0 , 3 A , D2 , D0 , CD , BE 
DATA D0 , 3E , 00 , CD , BE ; D0 , 3A , D4 
DATA D0,5F, 16, 00, 06, 08^ 2Ai 04 
DATA 00, 19, 10,FD,22,CE,D0,0E 
DAT A 80 , CD , A7 , D0 , CD , BE , D0 ; CB 
DATA 09,3A,D2,D0,3D;32;D2,D0 
DATA FE,01,20,ED,CD, A7,D0,E1 
DATA D1,C1,F1,3A,D0,D0,C9,06 
DATA 08, 1E,00,2A,CE,D0,7E, Al 
DA PA 37, 20, 01 , 3F, CB, 13, 23, 10 
DATA F5,7B,32;D0;D0,C9,F5,3E 
DATA C9,32,B6;FF;F1,CD,A5,00 
DATA 3E,C3,32iB6;FF;C9' 
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HSX GEBRUIKERSGROEPEN 

HCC MSX gg 
Postbus 51 
263C AA Nootdorp 

MSX gg. West-Brabant 
Pijnboomstraat 10 
4731 AT Oudenbosch 

"De Leke" 
p/a Fred De Winne 
Lekestraat 33 
9900 Eeklo Belgie 

YAMAHA CX5 gebruikersgroep 
p/a Coen van Splunder 
Diepenbroek 87 
5991 PT Baarlo 
Tel. 04707-3348 

MSX GEBRUIKERSGROEP UDENHOUT EN OMSTREKEN 

p/a Wil van Aarle 

Armhoef 33 

5071 VW Udenhout 

MGU MSX gebruikersgroep Uden 

Inl. Carlo van Hout. 

Tel: 08859-52950 

MSX-club Belgie-Nederland 
p/a Mottaart 20 
3170 Herselt Belgie 

MSX-CLUB-FLEVO 
Schouw 53-45 
8232 XJ Lelystad 

MSX gg Groningen e.o. 

p/a Hiddemaheerd 189 

9737 JL Groningen 

Tel. 050-418855 b.g.g. 050-141474 



De grootste truuk is het vullen van 2 
boekjes met een inhoud die makkelijk in 1 
exemplaar zou passen. De uitgeverij van 
deze twee MSX boekjes is hier wel in 
geslaagd, maar dit wordt door ons echt 
niet gewaardeerd. Beide boekjes bevatten 
vele lege- en vrijwel lege pagina's. 

Wanneer we even terugblikken naar de 
eerdere deeltjes in deze serie dan merken 
we dat de kwaliteit van de geplaatste 
artikeltjes en routines steeds slechter 
wordt. Vooral deze twee deeltjes zijn vol 
gegooid met veel nutteloze informatie. 
Daar, waar de truuks en tips wel nuttig 
zijn ontbreken veelal een duidelijke 
omschrijving of aanvullende informatie. Zo 
vinden we in deel 7 een programma om MSX-2 
diskettes in slechts 4 doorgangen (via de 
videoram) te kopiëren. Er staat echter 
niet bij dat dit alleen geldt voor 
diskettes van 360K. Alle bezitters van 
720K drives zullen zo slechts een halve 
diskette overzetten. Hieruit -en uit veel 
meer onvolkomenheden- blijkt het ontbreken 
van de kritische blik en de rode pen van 
de uitgever. Ook de verkeerde inhouds- 
opgave in nr.6 (alles staat enkele 
pagina's verder dan in de inhoud vermeld 
staat) zal er op deze manier wel 
doorgeglipt zijn. 

Wanneer we bij beide boekjes ook nog de 
tips en routines overslaan die reeds 
eerder in boeken en tijdschriften zijn 
gepubliceerd, dan blijft er bar weinig 
nuttige informatie over en je moet deze 
wel echt hard nodig hebben om deze boekjes 
hiervoor aan te schaffen. Wat er 
overblijft is echter wel goed en het is 
jammer dat dit niet is geselecteerd en in 
1 deeltje is geplaatst. 

Beide boekjes komen van uitgeverij Stark 
en kosten Fl. 24,90 per stuk. 


MSX EN MSX 2 MOGELIJKHEDEN 

Weer een boekje van uitgeverij Stark, dus 
meteen kijken naar de inhoud en zoeken 
naar lege pagina's. Gelukkig, alles ziet 
er bij dit werkje normaal uit. De indeling 
is echter wat anders dan we bij de meeste 
boeken gewend zijn. Er worden allerlei 
routines behandeld, die allemaal voorzien 
zijn van een stukje programma. De num- 
mering van deze stukjes programma is 
dusdanig dat, wanneer ze alemaal ingevoerd 
zijn, er een compleet programma ontstaat. 
Aan het eind van het boekje staat dit 
komplete programma nogmaals afgedrukt en 
dit lijkt mij toch wel een beetje teveel 
van het goede. Vooral omdat de 
programmaregels niet in de juiste volgorde 
staan. Pagina 91 eindigt met regel 5190. 
Het vervolg hierop staat midden op pagina 
93, na regel 20160. Deze laatste regel is 
niet compleet afgedrukt en voor het 
vervolg hierop komen we bij pagina 96 
terecht, waar we ergens in het midden het 
restje tekst vinden van pagina 93. 

Ook bij dit boekje weer veel wat al eerder 
is gepubliceerd (o.a. een uitgebreide 
beschrijving van de geluids generator), 
maar verder is het erg goed en staat er 
veel nuttige informatie in. Vooral het 
hoofdstuk met programma's voor diskdrives 
is heel leerzaam en de programma's zijn 
erg interessant. 

Een uitstekend boekje voor de beginner, 
die de basisopdrachten onder de knie heeft 
en wel eens wat beter kennis wil maken met 
zijn MSX. 

Het boekje komt van uitgeverij Stark, 
kost Fl. 29,50 en is dit geld echt wel 
waard. 


52 




BET riiOPPMK TOOI! DE ESKffllPÖTERS 

Dit boek is een vertaling en het oor- 
spronkelijke werk komt dit keer uit 
Duitsland en heet 'MSX FLOPPYBUCH'. Zoals 
uit de titel al blijkt gaat het hier 
alleen om informatie over het werken met 
diskettes, maar in tegenstelling tot 
andere publicaties hierover wordt in dit 
boek nu eens heel diep en uitgebreid op 
deze materie ingegaan en dit is dan ook 
het beste boek dat we -tot nu toe- op dit 
gebied onder ogen hebben gehad. Vrijwel 
alles wat met diskettes, MSX-diskBASIC en 
MSX-DOS te maken heeft komt aan de orde. 
Ook MS-DOS en CP/M komen we zo hier en 
daar tegen. 

Het boek begint met een uitvoerig verhaal 
over diskettes en formaten en vervolgt met 
een artikel over de indeling van deze 
diskettes. 

Heel uitvoerig komt dan DISK-BASIC aan de 
orde met een overzicht van de commando's 
en een zeer uitgebreid stuk over het 
werken met bestanden. In dit gedeelte ook 
de verschillende opslagvormen, sorteren en 
mengen van bestanden en datastructuren. 

Het bovenstaande is prima geschikt voor de 
beginner, die pas met een diskdrive gaat 
werken, maar ook de gevorderde programmeur 
komt aan bod. Er is een flink stuk gewijd 
aan de opbouw van een BASIC-diskette en er 
wordt ook geleerd hoe de tracks en 
sectoren op de diskettes bekeken en 
veranderd kunnen worden. Het gehele boek 
is voorzien van allerlei handige 
programmavoorbeelden en routines die de 
artikelen verduidelijken en veelal in 
eigen programma's gebruikt kunnen worden. 

Tot slot vinden we nog een stuk over het 
besturingssysteem met de nodige adressen. 

Het f loppyboekvoor de MSX-computer is een 
uitstekend boek voor zowel de beginner als 
de gevorderde disk- gebruiker en program- 
meur en zelfs voor bezitters van andere 
merken computers is er nog wel iets 
nuttigs in te vinden. 

Het boek is een product van Data Decker 
Nederland en wordt in de handel gebracht 
door uitgeverij A.W. Bruna & Zoons. De 
prijs is Fl. 69,90 en dit boek is dat geld 
zeker waard. 


dFILOSOFT 

flsERIEUS IN SOFTWARE 


Filosoft vraagt aan de Nederlandse computer-pers: Wat is de beste tekstverwerker 
voor MSX-computers? Leg onze tekstverwerkers Tasword MSX (voor MSX-1 com- 
puters) en Tasword MSX-TWEE (voor MSX-2 computers) maar op de pijnbank, en 
leg andere tekstverwerkers ernaast. Vergelijk ze - puntsgewijs - op alle onderdelen, 
stel hoge eisen, en vergeet niet een prijsvergelijking te maken. Schrijf dan - eerlijk is 
eerlijk - welk programma volgens u het beste is. 

Filosoft vraagt aan computergebruikers die meer dan een half uur per week aan tekst- 
verwerking doen: lees de besprekingen in de bladen kritisch. Als u niet voor 100% 
van de kwaliteit van Tasword overtuigd bent, informeer dan ook bij andere gebrui- 
kers, welke tekstverwerker het best bevalt. Laat u de programma's demonstreren in 
een computerwinkel, en vergelijk de prijs. Filosoft kan de demonstratief lage prijzen 
voor deze top-programma's alleen handhaven bij een tevreden publiek. 

TASWORD MSX-TWEE 

De beste (jazeker!) tekstverwerker voor MSX, nu in een geheel nieuwe versie voor 
MSX-2 computers. Tot 80 kolommen op het scherm en ook op de printer. Vele nieu- 
we mogelijkheden: headers en footers, meerdere prints, 'moeilijk' formateren, auto- 
matische pagina-nummering, blokken tekst verplaatsen, kopiëren en wissen, vijf 
kladbloks, achtvoudige 'TAB'-instelling, GOTO regeinr., eet., etc. 

Optimaal werken met diskdrives (ook voor 2 drives, automatische back-up van alle 
teksten, herbenoemen, saven, laden en wissen van bestanden etc.). 

Vergelijk ook de volgende eigenschappen eens met die van andere tekstverwerkers: 

- volledig Nederlandstalig, d.w.z. zowel het programma als de handleiding 

- werkgeheugen meer dan 1 10K (i.p.v. 32K) 

- 50 pagina's dik Nederlandstalig handboek, helder geschreven 

- hulppagina met alle mogelijke commando’s bereikbaar via 1 toetsindruk 

- de gebruiker ziet direkt op het scherm, wat er op de printer komt 

- met behulp van de meegeleverde voorbeeldtekst kan de gebruiker binnen het 
kwartier met Tasword aan de slag 

- met mailmerge: (ook voorwaardelijk) afdrukken met gegevens uit databestanden 

- op wezenlijke punten door de gebruiker zelf aan te passen, zodat een 'persoon- 
lijke' tekstverwerker kan ontstaan, 

- waarvan voor eigen gebruik (!) kopieën kunnen en mogen worden gemaakt 

- output is volledig ASCII, dus klaar voor datacommunicatie 

- met de Filosoft service-kaart 

- dit programma is het dubbele waard van: disk f 1 49 00 

TASWORD MSX 

DE tekstverwerker voor alle MSX-1 computers, werkt ook op MSX-2 (I), en met alle 
printers. Tot 64 karakters per regel op het scherm (!) en op de printer. Geheel Neder- 
landstalig, met duidelijke handleiding en servicekaart. Wist u dat in ieder geval twee 
Nederlandse computerbladen de kopy op Tasword MSX intypen? Dat we aan bedrij- 
ven speciale versies van Tasword MSX leveren? cass. ( -f- diskversie) f 95,00 

EERSTE HULP (CARETAKER) 

Afgelopen met laad-fouten bij gebruik van een cassetterecorder! M.b.v. dit program- 
ma stelt u zelf de koppen van uw recorder perfekt af op de (kritische) laadvereisten 
van de MSX-computer. Eenvoudig te bedienen. cass f 29 00 

ZELF PROGRAMMEREN — 

HISOFT UITGAVEN -C ‘) In Basic programmeren op een MSX heeft zo z'n beper- 
kingen. Wanneer de computer sneller en efficiënter moet werken, is het beter direkt 
in machinetaal, of in een hogere programmeertaal zoals Pascal of C te schrijven. 

Uit Engeland importeert Filosoft daartoe de kwaliteitsprodukten van Hisoft. waarbij 
eventuele updates van deze programma's (en de service erop!) meestal door ons ver- 
zorgd kunnen worden. Het pakket van Hisoft voor MSX ziet er als volgt uit: 

HISOFT DEVPAC (dis-)Assembler en monitor. cassf 79,00 

HISOFT DEVPAC 80 (dis-)Assembler en monitor disk f 1 75 00 

HISOFT PASCAL cassf 125,00 HISOFT PASCAL 80 - disk f 1 75,00 

HISOFT C-h-h diskf 175.00 AZTEC C compiler - disk f 725,00 

EDUKATIEF 


geld Edukatief programma met spelelementen cass f 

34,50 

DEELSOM 

idem cass f 

34,50 

ALFABET 

idem cass f 

34,50 

PROCENTEN 

idem cass f 

34,50 

WOORDMAKER 

idem cass f 

34,50 

TAALBEDRIJF 

idem cass f 

34,50 

LETTERGRIJPER 

idem cass f 

34,50 

ENGLISH WORDS 

idem cass f 

34,50 

OPTELLEN TOT 20 

idem cass f 

34,50 

OPTELLEN EN AFTREKKEN 

idem cass f 

34,50 

CIJFEREND VERMENIGVULDIGEN 

idem cass f 

34,50 

ORIE-IN-EEN 3 edukatieve programma's (w.o. 

Aardrijkskunde met grote scrollende 


kaart van Nederland) op een cassette, samen cass f 34,50 

REDEKUNDIG ONTLEDEN Uitgebreid edukatief programma voor de Nederlandse 
taal. Voor kinderen en ouderen, school en thuis. Geen spelletje! cass f 59,00 


DIVERSEN 

I TJING Mooie computerversie v.h. Chinese orakel, alleen op disk f 79,00 

BRIDGE Nederlands, ACOL-systeem, om te leren bridgen cass f 49,00 

MSX-64 PLUS Zorgt voor een professionelere (en overzichtelijker) aanbiik van uw 
programma's. MSX-64 + geeft d.m.v. het nieuwe Basic commando 'FPRINT' 64 te- 
kens per regel op screen 2 (dus meer tekst en cijfers per scherm) in uw eigen pro- 
gramma's. Plus: grote letter-routine. Cass - en diskversie samen op: cass f 34,50 

— VERWACHT: DISKIT MSX 

DISKIT MSX Wat dacht u van een 'diskette-dokter', met bijv. de volgende moge- 
lijkheden: snelkopiëren van aparte files en komplete disks, beveiligen en onzichtbaar 
maken van programma's, naam geven aan een disk, (per ongeluk) gewiste files te- 
rughalen, voor 1 of meer drives, menugestuurd, etc.? Als u nog andere ideeën heeft, 
dan roept u maar. DISKIT is binnenkort leverbaar. Bel voor de prijs! 

VIDITELLERS OPGELET 

FILOTEL (050-145174) is onze eigen databank, en 24 uur per dag bereikbaar voor 
iedereen, die apparatuur heeft om met Viditel te bellen (abonnement niet nodig)! 

INFORMATIE 

Programma's, gemerkt met 2 sterren (**) vereisen lenige) kennis van de Engelse 
taal. Vraag onze gratis folder aan d.m.v. een briefkaartje (o.v.v. MSX GD naar: Post- 
bus 1 353, 9701 BJ Groningen, of telefonisch: 050-1 37746. Filosoft produkten zijn 
te koop in de goede computerzaak, maar ook rechtstreeks te bestellen: door storting 
van het bedrag + f 3,50 verz. kosten op giro 20792 t.n.v. Filosoft, Groningen. Tele- 
fonische bestellingen (+ 6.50 rembourskosten) worden zo mogelijk nog dezelfde 
dag verzonden. Voor gratis telefonisch advies: vrijdag, Filosoft servicedag! 


53 


VRAGEN VAN LEZERS 

Erik van der Hoek heeft 2 vragen: 

1. Hoe kan de Sony PRN C41 plotter op de 
ZX-Spectrum aangesloten worden. Wie heeft 
hiervoor een bedradingsvoorbeeld? 

2. Ik wil het tekenprogramma 'M-Sign' uit 
Gids nr.4 uitgebreid zien met de 
mogelijkheid om twee willekeurige punten 
te verbinden door een cirkelboog en wel 
met toepassing van een wiskundige formule. 
Wie helpt mij aan een algoritme? 

Gaarne reakties aan Erik van der Hoek, 

Perk 12, 8731 AJ Wommels. 


A.A.Delis heeft een SV738 X'press en een 
Toshiba HX10 64 en wil deze laatste 
combineren met de SV738 b.v. als printer- 
buf f er . 

Is zo'n toepassing mogelijk? Zoja, hoe is 
dan de verbinding te maken? Is hier 
literatuur over? Is er speciale program- 
matuur voor nodig? 

Wie helpt A.A.Delis Tel. 033-722578 


Stefan Schwitschka zoekt hulp bij het spel 
'ZOIDS'. Hij kan geen stukjes foidzilla 
vinden. Wij hebben. -in de korte tijd dat 
we het gespeeld hebben- ook niets gevonden 
dus vandaar langs deze weg een oproep aan 
de lezers. Reakties naar: 

Stefan Schwitschka, Belgielaan 35, 9120 
Destelbergen (Belgie) . 


L.F. Abel gebruikt zijn Toshiba MSX 
computer in combinatie met een modelspoor- 
baan. Hij wil nu het aantal schakelmoge- 
lijkheden uitbreiden en vraagt of dit via 
de printerpoort kan en of er nog andere 
mogelijkheden zijn. 

Voor de schakelmogelijkheden via de 
printeruitgang verwijzen wij naar de 
extra editie van de MSX-Gids waar hierover 
alles te vinden is. 

Verder wil ik -ook evt. andere liefheb- 
bers- wijzen op het UNIFACE besturings- 
systeem van de PTC (Vereniging van Philips 
thuiscomputer gebruikers) . Dit zijn uit- 
breidingskaarten met 8 in- en uit-gangen 
per kaart en er kan met meer dan 10 
kaarten gewerkt worden. Allerlei schakel- 
mogelijkheden kunnen hiermee gerealiseerd 
worden. Inl. Bureau PTC, Postbus 67, 5600 
AB Eindhoven. 


TERBETERIKG XINI GOIF PROGRAIDIA 

Van onze vaste inzender G.W. J. v.d.Pol 
kregen we een verfraaing van onze Mini 
Golf binnen. Het stukje programma ziet er 
als volgt uit: 

330 FOR Z=0 TO 2*3.14 STEP. 314 
340 PUT SPRITE 2 , (X+10*SIN (Z) , Y+10*COS (Z) ) 
,9,2 

350 I$=INKEY$:IF I$=""THEN 370 
360 NEXT:GOTO 330 
370 XX=(X-(X+10*SIN(Z))\l)/4 
380 YY=(Y-(Y+10*COS(Z) )\l)/4 
390 XS=-XX:YS=-YY:RETURN 

Dit is inderdaad een mooiere en kortere 
oplossing. Bedankt! 


************************************* 

LET OP NIEUWS !! LET OP NIEUWS !! 
************************************* 


MET INGANG VAN 3 JANUARI 1986 
OPENEN WIJ ONZE NIEUWE MSX WINKEL 
WITTE DE WITHSTRAAT 22a AMSTERDAM 
(bij postjesweg en kinkerstraat) 

TEL 020-123206 020-183001 

i^-k'k'k'k'k'k-k-kic'k'kicicici^'k-k'k'k'k'kici^-k'k'kic'k'kic-k-k-kic'k 


MSX BLIJFT ONZE SPECIALITEIT 
ONS ASSORTIMENT VAN RUIM 750 
MSX ARTIKELEN ZAL NOG VERDER 
UITGROEIEN . 

************************************ 

OOK GAAN WIJ EEN ASSORTIMENT 
PC SOFTWARE LEVEREN. 

DIT ZAL GERICHT ZIJN OP DE 
HOBBYIST EN ZAKELIJKE GEBRUIKER 

ir'k'k-k'k'kic'k'k'k'k'k'k'k'kic'k'k'k-kic'k'k'k'k'k'k-k-k-k-k'k'k'k'k'k 


AL ONZE SOFTWARE IS TEVENS TE 
BESTELLEN VIA DE SOFTPOST. 

TEL 020-183001(dagelijks van 
10.00 tot 14.00 uur) 

WITTE DE WITHSTRAAT 22a 
AMSTERDAM 1057 XW 

i^i('k'k'k'k'k'k-k'k-k'k'kic-k-k'k'k'k'k:k-k-k-k-k'k'k'k-k-k'k'k'k'k-k'k 

De winkel aan de vespucci straat 48 
is met ingang van 1 januari gesloten 
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Listing controle programma 2 


toepassing OP 

DE LISTINGS VANAF MSX GIDS NR.3 

LISTINGS UIT GIDS 1 EN 2 NIET MET DEZE 
TESTER CONTROLEREN! 

tester is bedoeld als 
hulpmiddel voor de lezers, die de 
programma listings uit ons blad overneraen. 
Met dit programma publiceren wij een 
(controle telling van de programmaregels 
en, wanneer u een programma heeft 
overgenomen, kunt u dan -ook weer met 
drtzelfde programma- een kontrole-telline 
uitvoeren. Zijn de getallen achter de 
regel hetzelfde, dan is de kans erg groot 
dat het programma goed is overgenomen. 
Zeker is dit echter niet, want wanneer 
bijvoorbeeld twee letters in een regel 
worden omgewisseld, dan is de telling toch 
goed. ® 

MSX-BASIC kent twee statements voor regels 
kommentaar bevatten: namelijk 
het REM-stateraent en regels die beginnen 
' Beide regels hebben over het 
alpmeen geen invloed op de werking van 
net programma en daarom wordt de tekst van 
deze regels niet meegeteld. Wanneer de REM 
regels wel belangrijk zijn (b.v. bij 
machinetaal routines, die tijdens de loop 
van het programma op deze regels worden 
geplaatst) dan wordt dit uitdrukkelijk 
vermeld. 

De ^ tester heeft hoge regelnummers, zodat 
het eind van de meeste programmals 
geplaatst kan worden. U toetst dit 
propa^a in en kontroleert het met 
zichzelf door regelnummer 65170 te laten 
vervallen. 

Is het programma goed, dan moet dit met de 
opdracht SAVE "CAS: TESTER" op cassette 
worden gezet. (Wel eerst regel 65170 weer 
opneraen ! ! ) . 

Het programma wordt dan als ASCII-fiie op 
de band gezet . 

Niet wegschrijven met "CSAVE"!! 

U gebruikt verder dit programma als volgt: 
u tikt het programma, dat u wilt hebben in 

PTTM eerst op cassette. Niet eerst 

RUNen, want bij sommige fouten kan een 
programma blijven 'hangen' en vaak moet 
aan alles opnieuw worden ingevoerd! Daarna 
kan met MERGE "CAS: TESTER" het kontrole 
programma achter het ingetoetste programma 
worden gezet, waarna met RUN 65000 het 
kontroleren kan beginnen. Er is een keuze 
tussen de uitvoer naar een printer en naar 
het beeldscherm. In principe zal de 
printer worden gebruikt, maar bij kleine 
programma s, of voor het geval dat er nog 
slechts enkele regels nagekeken hoeven te 
worden, kan het ook via het beeldscherm. 

Voor^ het laden van het testprogramma moet 
de instruktie 'MERGE' worden gebruikt en 
niet LOAD! (Dus MERGE "CAS : TESTER" ) . Bi i 
gebruik van LOAD komt de Listlng tester 
namelijk in plaats van het reeds in het 
geheugen aanwezige programma te staan en 
dan valt er niets meer te testen. 


Let goed op bij DATA- regels. Wanneer hier 
getallen omgewisseld worden, zal de tester 
toch een goede telling geven! Bij het 
omwisselen van letters in BASIC- 
instrukties wordt wel een fout 
geconstateerd . 

Een controle telling wordt alleen bij 
grote -of Ingewikkelde- programma's 
geplaatst . 


B»»ld»chBrmi WIDTH 37 


*HC***!|C*#*)|C***#)|C)|C)K**##*# 

* LISTING TESTER 2 « 

* Door Al -f red Debels He 

* (c) 1986 De MSX Gids » 

* Amsterdam $, 


65000 
65010 
65020 
65030 
65040 
65050 
65060 

65070 CLSrCLEAR! SCREEN 0s WIDTH 40:PRI 

beeld^chero, 

65090 PRINT : PRINT "B of P?; '• 

65100 Xt=INKEY$! IF X$<>"B" AND X*<'>"P 
" THEN 65100 P 

65110 START=32769' 

65120 RG=START+2s T=0 

65140 VR=PEEK (START) +256»PEEK (START+1 

NR=PEEK ( RG ) +256 »PEEK ( RB+ 1 ) 

65160 IF VR=0 THEN 65290 
65170 IF NR>=65000! THEN 65290 
6ulB0 S=0ïFOR I=RG+2 TO VR-1 
65190 A=peeK(I) 

F ^=1^3 THEN I=VR!GDTD 65240 
65230 S= S+AiNEXT 
65240 S=SM0D256 
65250 T=T+S 

65260 IF X$="B" THEN PRINT USING "Rea 

?iiï?*** - #«*"!NR.S>GDT0 6S28SI ’ 
USING "Regel:##### - ### 

tiiiè RG=VR+2;G0T0 65140 

6u290 IF X$="P" THEN 65310 

PRINT: PRINT "Totaal: "jT: END 

6^310 LPRINT "Totaal: "jT: END 


Regel : 65000 - 5B 
Regel: 650 10 - 58 

Regel : 65020 - 58 

Regel: 65030 - 58 

Regel: 65040 - 58 

Regel: 65050 - 58 

Regel : 65060 - 5B 
Regel: 65070 - 151 
Regel: 65080 - 129 
Regel : 65090 - 32 

Regel : 65100 - 5 

Regel : 651 10 - 23 

Regel: 65120 - 200 
Regel :65140 - 133 
Regel: 65150 - 147 
Regel: 651 60 - 132 

65180 - 201 
65190 - 96 

65210 - 234 
65230 - 164 
173 
219 


Regel: 65260 - 167 
Regel : 65270 - 13 
Regel: 65280 - 136 
Regel : 65290 - 239 
Regel: 65300 - 233 
Regel: 65310 - 42 
Totaal: 3275 


Regel 
Regel 
Regel 
Regel 
Regel : 65240 
Regel : 65250 
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de mini gids 

In deze rubriek kunnen onze lezers advertenties plaatsen, 
mits niet van commerciële aard ! Handelaren kunnen onze 
advertentietarieven aanvragen. 

De redaktie behoudt zich het recht voor advertenties voor 
deze rubriek te weigeren. Inzendingen kunnen gestuurd wor- 
den naar Postbus 10252, 1001 EG Amsterdam en dienen 
voorzien te zijn van naam, adres en evt. telefoonnummer. 
Advertenties met alleen postbusnummer of antwoordnummer 
worden niet opgenomen. 


TE KOOP: 

GOLDSTAR FC200 MSX computer + datarecorder 
+ joystick + veel software op ca. 50 
cassettes. Prijs FL.600,=. Sony HBD-50 
diskdrive FL.6O0,=. Alles in een koop FL 
.1150,=. J.v.Rohum, Tel. 03435-74334 na 
18.00 uur. 

TE KOOP; 

Wegens omst. nieuw in doos met garantie 
Philips VG8235 MSX-2. FL.1449,= 

A.Pakvis, Acaciastraat 5, 2681 CP Monster. 
Tel. 01749-12598 na 18.00 uur. 

GEZOCHT: 

Modules {liefst Konami of Hall) tegen ca. 
15 games op cass. (keuze uit ruim 150 
titels) Tel. 075-171753 na 17.00 uur. 
Vragen naar Sander. 

GEZOCHT: 

Iemand die software wil ruilen voor MSX. 
Tel. 020-437802 

TE KOOP: 

SEIKOSHA GP500A printer inclusief kabel, 
papier en stofhoes. Vaste prijs: FL.350,= 
Tel. 070-972678 

SOFTWARE RUILEN: 

Alleen op disk. Tel. na 18.00 uur: 05430- 

14452. 

TE KOOP; 

Diverse originele MSX games (op cass.) 
vanaf FL. 7,50 p.st. (o.a. Speed King, 
Grog's Revenge, Shark Hunter, Chuckie 
Egg). Verder te koop 3 modules: Tennis FL. 

40,=. Rollerball FL. 35,= en Mouser 
FL. 20,=. Mare van Breemen, Tel; 

040-415332 

na 18.00 uur, liefst omg. Eindhoven. 

RUILEN: 

Originele software tegen dito. 

R.Verallo, Landstrekenlaan 105, 5235 LL 

's-Hertogenbosch. Tel; 073-410900 

RUILEN: 

MSX spelletjes in de omgeving van Capelle 
a/d IJssel. Tel. 010-4503222 


TE KOOP: 

Floppy disk drive, AVT DPF-550 (5.25 

inch) met handleiding, MSX-DOS en MSX DISK 
BASIC. Tel:010-4229251 (alleen in het 
weekend) . 

TE KOOP: 

Beehive terminal, los toetsenbord en 
monitor. Geheel kompleet doch niet 100%. 
Prijs n.o.t.k. Tel: 04132-64900 (weekends) 

GEZOCHT; 

MSX-ers in de buurt van Alkmaar die spel- 
letjes willen ruilen of uitwisselen. 

Tel; 072-125335. 

GEZOCHT: 

MSX-ers om software mee te ruilen (evt. op 
disk). Stuur jouw lijst naar: 

Rob Nauta, Laneveltlaan 18, 5671 CN Nuenen 

GEZOCHT: 

Iemand om spelletjes mee te ruilen. 

Oskar Snijders, A.Schweitzerlaan 9, Har- 
denberg. Tel: 05232-64838. 

GEZOCHT: 

De nummers 1 t/m 3 van de MSX-Gids of de 
listings van de programma's uit die 
nummers . 

J.Duit, Vlamingstraat 4, 1781 MH Den 

Helder. 

TE KOOP; 

Philips MSX-1 computer VG-8020 + de origi- 
nele handboeken + handboek Basic MSX-1. 
Vaste prijs FL. 390,=. Inl. na 1800 uur 
(niet op Vrijdag t/m Zondag) L.C. Stolk. 
Tel: 02518-53470. 

TE KOOP; 

ca. 20 originele arcade spellen voor MSX, 
vanaf FL. 10,=. Stuur poszegel van 75 ct. 
vor lijst naar: John Honkoop, Seevank 16, 
1161 AS Zwanenburg. 


GEZOCHT; 

MSX-ers in Amstelveen en omgeving om op 
MSX-2 te programmeren in BASIC (gevorderd) 
W.W. Troost. Tel. 020-438106 

GEZOCHT: 

MSX-ers om software mee te ruilen. A.Meek, 
Amelterhout 36, 9403 EE Assen. 
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Amstel 312 (t.o. Carré) / 1017 AP Amsterdam / Giro 4 475 158 / Bank NMB 69.79.15.646 


**********************************************,/t********************ilr***** 

★ onze nieuwe WINTER 1986/87 CATALOGUS komt eind november uit. Stuur * 

★ ons een kaartje met naam en adres + de vermelding 'MSX Gids' en we * 

★ sturen hem GRATIS toe. Of kom hem afhalen in de winkel. * 


in BELGJE 

zijn al onze artikelen verkrijgbaar bij 
Het Computerwinkelt j e pvba, 

M Sabbestraat 39, B-2800 MECHELEN 
telefoon (015) 206 645 


MSX_BESISELLERS_N0VEMBER 1986 


HIERONDER EEN OVERZICHT VAN ACTUELE MSX BOEKEN 


Cursus Z80 Assembleertaa I 

Programmeren van de Z80 

Turbo Pascal Compleet 

Programmeercursus MSX BASIC 

Werken met Bestanden in MSX BASIC 

Handboek MSX 

BASICODE-3 incl cassette MSX/MSX2 

MSX Truuks en Tips deel 1 

MSX Truuks en Tips deel 2 

MSX Truuks en Tips deel 3 

MSX Truuks en Tips deel 4 

MSX Truuks en Tips deel 5 

MSX Truuks en Tips deel 6 

MSX Truuks en Tips deel 7 

*MSX ROM/BIOS Handboek 

MSX BASIC (Sickler) 

*MSX Listingboek 

MSX BASIC leerboek deel 1 

MSX opdrachten bij deel 1 

MSX BASIC leerboek deel 2 

MSX opdrachten bij deel 2 

MSX DOS leerboek deel 3 

MSX opdrachten bij deel 3 

MSX Machinetaalhandboek 

MSX Machinetaa lboek 

*Het Floppyboek voor MSX Computers 

MSX BIOS - complete Listing 

Behind the Sereens of the MSX .... 



|80^_BASIC^_C^_Lggo^_Pasca_l 


MSX nederlands 


36 

Zakboekje Z-8Ö 

...25 

MSX-2 BASIC Handboek 

57,05 

59 

Advanced Z80 Machine Code .. 

...65 

MSX-2 Ui tbreidingshandboek . 

37,85 

68 

Microsoft BASIC - MSX BASIC 

...69 

50 Programmaas voor MSX comp 

21,50 

45 

Bouw zelf een Expertsysteem 

in 

*MSX Programmeren Machinetaal 

32,50 

45 

BASIC 


MSX Computers en Printers .. 

27,75 

.50 

Kunstmatige Intelligentie op 

uw 

MSX BASIC Handboek 

49,95 

.50 

Computer 


MSX DOS Handboek v iedereen 

26,75 

,15 

De Programmeertaal C 

...25 

MSX Disk Handboek 

29,80 

,15 

Practical C for the Home Micro. 39 

MSX Prakti j kprogrammaas .... 

24,75 

,15 

Logisch Logo 


MSX Quick Disk Handboek 

23,70 

.15 

Cursus Pascal 

39,90 

MSX Verder Uitgediept 

24,10 

15 

Turbo Pascal Program Library 

.. 65 

Peeks, Pokes etc 


15 

MSX neder lands 


MSX Zakboekje 

19,70 

15 

40 Grafische Programmaas MSX 

29,50 

MSX BASIC voor kinderen - 1 

19,70 

55 

Adventures voor de MSX 

24,95 

Financiële Programmaas voor 


75 

Miraculeuze Spelen voor uw MSX 29 

MSX Computers 

25,75 

95 

*MSX-Computers in Basisschool 

39,90 

Het MSX Software boek 

27,90 

75 

MSX Computer Spelen Boek 

24,95 

Werken met de MSX Computer . 

25,75 

10 

*MSX Programmaas voor dagelijks 

De MSX Gebruikersgids 

39,50 

75 

gebruik 

29,75 

MSX Programmaverzameling ... 

49,90 

10 

Het MSX instructieboek 

39,50 

Grafiek en Geluid voor MSX . 

49,90 


11,10 

34,80 

49.90 

59.90 

.. 99 
.. 45 


MSX Programma Mix 24,95 

Professionele Software voor de 

MSX Computer 49,90 

Leren Omgaan met MSX Computer25,75 

MSX DOS met Disk BASIC 33,50 

BASIC Programmaas voor MSX . 25,50 
MSX Listingboek 17,95 


MSX_duits_en_engels 

MSX Tips und tricks 59 

Das MSX Buch mi t MSX-2 69 

The MSX Games Book 36 

MSX Exposed 39 

Useful Utilities for MSX ... 17,50 


ACTUELE MSX SOFTWARE (t=tape/d=disk/c=cartridge) 


MSX^Nuttig_: 

MSX-CALC cartridge ... 195 
een Spreadsheet + 

Graphics voor MSX1/MSX2. 
Nederlandse handleiding. 
MSX-TEXT cartridge ... 195 
een Tekstverwerker + 
Database voor MSX1/MSX2. 
Nederlandse handleiding. 
Slagen v/h Ryexamen . t 59 
Music Editor 'MUE* .. c 95 
Adressenbestand + 

Muzi eknotencursus .. t 59 

*MSX Artist t 19 

Sprite Animat ion,Drawing 

iPRlNI-X-ER§SS t 95 

idem op disk d109 

een MSX Desktop Publisher 
voor Epson Printers. 

MT-Base c199 

Eddy II tekenen c 76 

MT-Display lichtkrant c199 

Tasword MSX t 65 

wordprocessor 

MT-Viditel c 299 

Aacko Desk ..(3.5"). d 399 
da tabase+ tekst verwerker 
Aacko Scribe (3.5") d 259 
tekstverwerker 


!3§X_uti li^t i_es_2 

Speedsave 4000 t 29 

Speedsave 4000 d 45 

Tape Alignement Set . t 29 
Musix muziek composer t 50 
MSX-64 tekens p regel t 35 
MSX_Adyent ures 
Castle Blackstar .... t 32 

The Hobbit t 45 

Journey to the Centre of 

Earth t 15 

Jewels of Darkness .. t 65 

Vera Cruz t 45 

Mandragore t 89 

The Price of Magick . t 45 
Worm in Paradise .... t 49 
Secret Diary of Adrian 

Mole t 49 

Arcade_ Advent ures 

Nightshade t 45 

Alien 8 t 45 

*0ctagon Squad t 10 


*NASHUA diskettes per 10 * 

5" single sided 25 

3.5" single sided 55 

3.5" doublé sided 75 


M§X_grggrammeerta len _2 

Hisoft DevPac t 79 

Hisoft DevPac d165 

Hisoft Pascal t125 

Hisoft Pascal 80 d165 

Hisoft C++ d165 

MT-Debug c149 

!l?SX_Sgortsimu latjes 

Le Mans t 19 

International Karate t 39 
Dunkshot -basketball c 79 

*Wintergames t 39 

Konami Football c 59 

*Foot Volley t 10 

?§ï_fil 9 !]isimulators 
737 Flight Simulator t 49 

*Dambusters t 39 

Jump Jet t 49 

Flight Deck t 59,90 

idem op disk .... d 69,90 
North Sea Helicopter 59,90 

idem op disk d 69,90 

MSX-2__S of t wa re_og_d 2 s k 
"Thê“chêss Game MSX-2’89,90 

Chopper d 69,90 

Red Lights of A'damd 79,90 

*Tasword MSX-2 d 149 

*FISTAN d300,50 

financiële administratie 


??SX_arcade_games 2 
*Attack of the Killer 

Tomatoes t 39 

Bounder t 39 

Chiller t 10 

Compilation tape 2 .. t 35 
Compilation disk 2 .. d 55 

*Vestron t 10 

*Trailblazer t 32 

Finders Keepers t 10 

*Front Line t 19 

Speedking motorrace . t 12 

*Chicken Chase t 15 

Jack the Nipper t 35 

Knight Tyme t 15 

*Invaders t 10 

Molecule Man t 12 

MSXtra t 45 

Blagger, 3D Knock-out, 
SuperBowl,Disc Warrior 

*Konami Nemesis c 59 

*Konami The Goonies . . c 59 

Space Walk t 10 

Turmoil t 15 

*0le t 15 

Konami Knightmare c 59 

6 Computer Hits t 35 

Konami Hyperralley .. c 59 
Formula 1 Simulator . t 10 


T“ 
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winkel open van woensdag t/m zaterdag tussen 11.00 en 17.00 (maandag/di sndag gesloten) - alle prijzen inclusief BTW 
verzendkosten f 6,- per bestelling - vraag onze nieuwe WINTER 1986/87 CATALOGUS aan. 



microcomputer tijdschriften boeken en software 
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MSX "SOPTPOST’ 

Van KmsbergBnstraat 62 
1057 PT Amsterdam. 

Tel 020 - 183001 

Bestel telefonisch en u heeft 
heel snel het door u gewenste 
programma in huis. 

(ma-vrij van 10.00- 14.00 uur) 


:ArA-A-A-A-A-A-A-A~AA-AA A 

A-VbA-A-A-A-A-j 

VAAAAAAAAAAA, 

AArA-A-A-A-A“A A A A A A / 

rA-A-A-A-A-A-, 

A-AAAA 


A-A-A-A-A-A-A- 

^-A-A-A-A-AA- A- A A A A A A A 

A-A-A-A-j 

tArAr: 

IkAAAAA 

A A A' ; 

AAtAA-AtA-A 

Tasword msx II 


fl 149,- 

Knightmare konami 

rom 

fl 

59,- 

Rekenwonder 

msx 

II 

disk 

fl 

70,- 

Tasword msx I 

cas 

fl 95,- 

Nemesis 

konami 

rom 

fl 

59,- 

Oberon 

msx 

II 

disk 

fl 

70,- 

Tasword msx I disk 

fl 115,- 

Goonies 

konami 

rom 

fl 

59,- 

Eindeloos 

msx 

II 

disk 

fl 

70,- 

Msx text oomp mates 

fl 195,- 

Pippols 

konami 

rom 

fl 

49,- 

Top. europa 

msx 

II 

disk 

fl 

70,- 

Spreadsheet comp mates fl 195,- 

Hole in one hal 

rom 

fl 

79,- 

Top. wereld 

msx 

II 

disk 

fl 

70,- 

Devpac 80 

disk 

fl 180,- 

Rollerbal 

hal 

rom 

fl 

64,- 

Kruiswoordp. 

msx 

II 

disk 

fl 

70,- 

Pascal 80 

disk 

fl 180,- 

Eggerland 

hal 

rom 

fl 

79,- 

Tenpo typen 

msx 

II 

disk 

fl 

70,- 

C++ 

disk 

fl 180,- 

10 coputerhits 

cas 

fl 

39,- 

De sekte 

msx 

II 

disk 

fl 

70,- 

Aacko Scribe 

disk 

f1 259,- 

Trail blazer 

cas 

fl 

32,- 

Thunderbal 1 

msx 

II 

disk 

fl 

49,90 


disk 

disk 

disk 


Aacko Desk 
Aacko Presto 
Fistan boekh 
Akg boekhouding cas 
Akg boekhouding disk 
Akg voorraad adri cas 
Akg voorraad ado disk 
Puddels educatief cas 
Ruimterekenen cas 
Rekenwondercross cas 
Aschcom div educatief 
Drie in een educatief 
Basic deel II 
Dieet progranma 
Print express 
Print express 
Musiwriter 
Mue 

Eddy II 
Cat ba 11 
Screendinp div. 
Rijexamen 
Express talk 


cas 

cas 


fl 

fl 

fl 

fl 

fl 

fl 

fl 

fl 

fl 

fl 

fl 

fl 

fl 

fl 


disk fl 
cas fl 


fl 
fl 
fl 
fl 
fl 
fl 
disk fl 


rom 

rom 

ron 

cas 

cas 


403,- Killer tomatoes cas 
200,- Internat. karate cas 
300,- Valkyr cas 
249,- Jack the nipper cas 
449,- Bounder cas 
249,- Ice king cas 
449,- Castle blackstar cas 
49,- Monopolie cas 
59,- Cluedo cas 
59,- Scrabble cas 
34,50 King size 50 gamescas 
34,50 Flightsimulator cas 
59,- Northseahelicoptercas 
39,- Flightdeck cas 
89,- Kung fu II rom 
79,- Hyper ralley rom 
129,- Football rom 
99,- Boxing rom 
76,- Div Japanse rcmpscks 
179,- Oilswell cas 
39,- Cyberon cas 
59,- Mandragore cas 
251,50 Lode runner rem 


fl 

fl 

fl 

fl 


39,- 

39,- 

39,- 

39,- 


Chopper 
Red lights 
Chess game 


msx II disk 
msx II disk 
msx II disk 


Boeken 


fl 69,90 
fl 79,50 
fl 89,- 


fl 39,- 

Basic handboek msx II 

fl 56,50 

f1 32,- 

Msx II machinetaal handb. fl ****** 

fl 32,- 

Progr. cursus basic 

fl 45,- 

fl 45,- 

Rom bios boek neder lands 

fl 55,- 

fl 45,- 

Msx handboek 

fl 79,- 

fl 45,- 

Het floppy boek 

f1 69,90 

fl 45,- 

Machinetaal handboek 

fl 34,50 

fl 49,- 

Bios guide 

fl 99,50 

fl 59,50 

Proffesionele software 

fl 50,- 

fl 59,50 

Diversen 


fl 59,- 

Music module Philips 

fl 369,- 

fl 59,- 

Graphic tablet Philips 

fl 299,- 

fl 59,- 

tTDuse Philips 

fl 159,- 

f1 59,- 

Svi robotarmfinterface 

fl 230,- 

f1 79,- 

Svi 64k geheugen ui tbr. 

fl 159,- 

fl 45,- 

Svi turbo joystick 

fl 59,- 

f1 49,- 

Philips joystick 

fl 80,- 

fl 89,- 

Telcom 

fl 699,- 

fl 69,- 

Teltron 

fl 599,- 
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BESTELBON titels 


PRIJS 


UVOORUIT PER GIRO:4526682 FL. 4 ,= PORTO 

n EURO/BETAALCHEQUE FL. 4,= PORTO 

UREMBOURS: FL.10,= PORTO 

ooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooo 

NAAM 


ADRES 


POSTCODE 

WOONPLAATS 


TOTAAL 


TELEFOON 


PORTO 

TOTAAL TE VOLDOEN 


f 



